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ABSTRACT 


This  project  serves  as  a  prototype  of  an  automated 
nursing  care  system.  The  project  contains  three  main 
components:  nursing  diagnosis,  nursing  care  plans,  and 
patient  classification.  The  objective  of  this  project  is 
to  marry  the  above  three  nursing  elements  into  a  single 
integrated  system. 

The  program  requires  validation  for  access  and  patient 
admission  capability.  Doctor’s  orders  and  nurse’s  orders 
comprise  major  inputs  for  determining  the  elements  of 
patient  care.  Patient  care  functions  carry  weighted 

qualifiers  which  input  to  calculate  thB  patiBnt 
classification . 

The  project  uses  dBase  III  to  manage  the  database 
functions  and  Exsys  to  calculate  patient  classification. 
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INITIAL  DISTRIBUTION  LIST 


The  appropriate  time  to  assess  the  nurse’s  automation 
needs  is  uihen  a  hospital-wide  system  is  being  proposed. 

The  Navy  Nurse  Carps  is  currently  in  this  unique  position. 

A  Mission  Element  Needs  Statement  proposed  the  creation  of 
the  Composite  Health  Care  System  in  1379.  A  Formal  Request 
For  Proposal  allowed  vendors  to  bid  for  the  implementation 
of  the  system  in  1935.  The  Composite  Health  Care  System 
calls  for  a  phased  implementation  process  with  phase  one 
scheduled  to  begin  in  1936.  Inpatient  activities, 
including  the  areas  addressed  in  this  project,  occur  in 
phase  two.  The  Navy  Nurse  Carps  faces  a  system 
implementation  imminently.  Timing  dictates  that  the  Nurse 
Corps  seek  prototypes  of  automated  systems  that  best  serve 
its  needs. 

This  project  serves  as  a  prototype  of  an  automated 
nursing  care  system.  The  project  contains  three  main 
components:  nursing  diagnosis,  nursing  care  plans,  and 
patient  classification.  The  objective  of  this  project  is 
to  marry  the  above  three  nursing  elements  into  a  singlB 
integrated  system.  Meeting  the  objective  necessitates  the 
inclusion  of  the  doctor's  orders.  The  doctor’s  orders,  in 
combination  with  the  nurses’s  orders,  reflect  the 
independent,  dependent  and  interdependent  activities  of 


nursing.  The  combined  orders  serve  as  the  foundation  For 
the  nursing  care  plan  and  the  patient  classification 
system.  Departmental  interfaces  demand  inclusion  in  the 
design  of  any  nursing  care  software  package. 

To  provide  a  realistic  setting,  the  program  requires 
validation  for  access  and  patient  admission  capability. 

The  validation  for  entry  is  a  necessity  to  safeguard 
patient  information  from  unauthorized  access  and  invasion 
of  privacy.  Patient  admission  capability  allows  for 
identifying  and  testing  different  patiBnt  scenarios. 

This  prototype  project  gives  a  partial  operational 
solution  to  the  planning  model  proposed  by  Rieder  and 
Norton  in  "An  Integrated  Nursing  Information  System  -  A 
Planning  nadel . ”  Reider  and  Norton  state, 

the  processing  step  of  classifying  patients  could  be 
fully  automated.  The  computer  could  process  patient 
information  and  determine  each  patient's  acuity  category 
from  the  Critical  Indicator  parameters  stored  within 
the  system.  As  orders  and  plans  of  care  change,  the 
computer  also  will  update  each  patient’s  acuity  category 
and  display  the  results  on  demand.  C1:7BD 

This  program  plans  to  show  one  way  of  automating  the 

patient  classification  system  using  nursing  diagnosis  and 


patient  care  plans. 


This  software  project  Follows  thB  outline  presented  by 

Pressman  C23  and  found  in  the  GSft  Office  of  Software 

Development  publication  ’’Establishing  ft  Software 

Engineering  Technology  CSET3.’’  In  this  publication,  the 

Federal  Software  Testing  Center  describes  SET  as: 

Software  engineering  is  sometimes  referred  to  as  the 
discipline  that  brings  order  to  the  software  development 
process.  C3:33 

This  software  development  effort  concentrates  on  the  first 

thrsB  of  six  software  lifB  cycle  stages  outlined  by  SET. 
These  steps  are  requirement  definition  and  analysis, 
design,  and  programming.  The  final  three  stages  of 
validation,  operation  and  review  remain  for  a  follow-on 
project . 

ft.  SCOPE 

This  software  product  limits  its  application  to  an  in- 
hospital  medical-surgical  environment.  The  emphasis  is  on 
automating  the  nursing  care  plan  activities  driven  by 
nursing  diagnosis.  The  patient  classification  system  uses 
an  expert  system  for  automation.  ftutomating  the  nursing 
care  plan  activity  holds  potential  for  improving 
documentation,  resulting  in  better  patient  care, 
ftutomating  the  patient  classification  system  provides  For 
consistency  and  accuracy  in  assigning  points  far  all 


patient  care  parameters.  This  provides  For  easy,  rapid 
classification  of  patients  giving  the  decision  makers 
necessary  and  timely  information  to  make  effective  staffing 
assignments . 

B.  COMPUTER/COMPUTING  CONSTRAINTS 

1 .  Hardware 

The  computer  hardware  chosen  far  this  project  is 
the  IBM-PC  or  IBM-compatible  machine.  Nurse  Corps  Officers 
testing  the  prototype  model  operate  available  Zenith-150 
microcomputers  located  within  the  nursing  service 
departments.  These  microcomputers  are  configured  with  two 
floppy  disk  drives.  The  capacity  of  floppy  di3ks  to  hold 
data  delineates  the  maximum  size  of  the  project. 

2.  Software 

Thi3  project  uses  off-the-shelf  software.  However, 
no  current  product  an  the  market  provides  For  both  the 
automation  of  a  nursing  care  plan  and  For  patient 
classification.  A  versatile,  multipurpose  programming 
software  package  adaptable  to  the  project  design  provides 
the  means  to  integrate  the  nursing  activities. 

3.  Intended  User 

Navy  Nurse  Corps  Functions  are  currently  not  highly 
automated.  It  is  a  goal  of  the  software  product 
development  to  make  the  system  user-friendly  and 
understandable  even  to  the  novice  nurse.  The  system 
designed  is  far  use  as  a  tool  For  the  professional  nurse. 
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Stringent  programming  measures  reduce  the  understanding 
required  of  the  inner  workings  of  a  computer. 


C.  DEFINITIONS 

1 .  The  Nursing  Care  Plan 

The  nurse  is  a  manager  of  time,  energy  and 
resources.  Conscientious  planning  occurs  throughout  the 
many  levels  of  a  nurse’s  job.  The  nursing  care  plan  is  at 
the  heart  of  what  a  nurse  should  get  accomplished  for  a 
patient.  ThB  nursing  carB  plan  allows  the  nursB  tQ 
approach  each  patient  with  a  documented  plan  of  action. 

The  care  plan  needs  to  contain  sufficient  information  on 
the  patient  to  make  it  pertinent  without  making  it  lengthy 
and  unwieldy. 

Currently,  the  writing  of  nursing  care  plans  is 
not  a  popular  activity.  C4-63  Nurses  agree  that  patient 
care  planning  is  necessary.  They  disagree  on  how  best  to 
implement  the  documentation  of  nursing  care  plans. 

Education  and  practice  direct  nurses  to  prioritize  energies 
on  administering  patient  care.  This  is  an  admirable  goal 
to  strive  toward,  but  one  often  infringed  upon  by 
non-patient  care  requirements.  Animosity  exists  between 
the  need  to  provide  the  necessary  nursing  care  and  the  time 
spent  documenting  the  care.  Manual  documentation  currently 
eats  up  40  per  cent  of  a  nurse’s  time.  £7:263 

Various  approaches  to  encourage,  enable  and 
persuade  nurses  to  complete  nursing  care  plans  have  been 


tried.  The  Joint  Commission  on  Accreditation  of  Hospitals 
CJCAHD  requires  a  documented  plan  of  care  for  every 
patient.  C8:98D  Texts  have  been  published  to  inform 
nurses  about  suggested  care  planning  methods.  C9-103 
Many  hospitals  establish  nursing  committees  to  provide 
standardized  care  plans.  Standardized  care  plans  attempt 
to  savB  nurses  the  time  and  energy  necessary  to  develop 
original  care  plans.  They  still  allow  individualization  of 
plans.  These  attempts  to  simplify  care  plan  writing 
activities  have  not  succeeded.  What  often  results  is  a 

nursing  care  plan  written  precursory  to  assessing  the  trua 
needs  af  the  patient.  The  plan  rapidly  outdates  itself. 
Plans  frequently  need  updating.  The  care  plans  lack 
consistency  from  one  practitioner  to  another.  Patient  care 
plans  written  to  meet  JCAH  requirements,  fall  short  of 
matching  the  spirit  behind  them. 

A  possible  solution  to  the  above  care  planning 
dilemma  is  beginning  to  appear  in  nursing  literature.  In 
many  instances  that  solution  is  a  successfully  implemented 
automated  nursing  system.  C 11-191  Where  a  successful 
automated  system  exists,  more  nurses  actively  develop  care 
plans  for  their  patients.  Nurses  perceive  the  automated 
plans  as  helpful  and  pertinent  to  the  care  delivered.  The 
speed  and  ease  of  entering  care  plans  pays  dividends  of 
better  nursing  care  documentation.  Their  timely  output 
encourages  active  use  of  the  plans. 


One  accepted  method  far  Formulating  a  nursing  care 
plan  commences  with  a  nursing  diagnosis.  ft  nursing 
diagnosis,  as  stated  by  Carpenito,  is: 

a  statement  that  describes  a  health  state  or  an  actual 
or  potential  alteration  in  one’s  life  processes  Cphysio- 
logical,  psychological,  sociocultural,  developmental,  and 
spiritual].  The  nurse  uses  the  nursing  process  to  identify 
and  synthesize  clinical  data  and  to  order  nursing 
interventions  to  reduce,  eliminate,  or  prevent  Chealth 
promotion]  health  alterations  which  are  in  the  legal  and 
educational  domain  of  nursing.  C13:4] 

Automation  was  one  of  the  catalysts  behind  the 
First  National  Conference  on  Classification  of  Nursing 
Diagnoses.  Since  the  first  conference,  SB  of  the  most 
pertinent  nursing  diagnoses  Cthrough  the  Sixth  National 
Conference  of  the  North  America  Nursing  Diagnosis 
Association],  have  been  identified.  Nursing  diagnoses, 
along  with  delineating  the  Btiology  and  interventions 
appropriate  to  each,  has  produced  a  national  effort  aimed 
at  unifying  activities  in  nursing.  C14:xi]  The  nursing 
diagnosis  approach  has  received  broad  support  from  the 
nursing  community.  The  nursing  diagnosis  drives  this 
computer  project. 

Numerous  texts  provide  sample  or  generic  statements 
initiated  by  nursing  diagnosis.  Many  hospitals  interested 
in  implementing  automated  nursing  care  planning  use 
standard  texted  plans.  This  program  extracts  examples  From 
Doenges  CIS]  and  Crosley  CIS], 


A  nursing  diagnosis  is  multilevBled .  A  nursing 
diagnosis  can  be  any  one  of  the  52  approved  nursing 
diagnoses.  Each  diagnosis  has  an  assessment  level. 
Assessment  levels  are  defining  characteristics  observed  by 
the  nurse  or  subjectively  stated  by  the  patient.  The 
nurse’s  observation  or  the  patient’s  statement  is 
relational  to  some  etiology  or  underlying  cause.  The 
underlying  cause  statement  helps  the  nurse  evaluate 
realistic  goals  for  the  patient  to  achieve.  Goal  setting 
is  the  fourth  level  of  nursing  diagnosis.  The  final  level 
is  selecting  nursing  actions  or  nurse’s  orders  directed 
toward  achieving  the  stated  goal. 

3.  Patient  filaaalLLsaUflp 

Patient  classification  is: 

the  grouping  of  patients  according  to  an  assessment  of 
their  nursing  care  requirements  over  a  specified  period  of 
time.  C 17 : B3 

A  valid  patient  classification  tool  enables  proper  staffing 
evaluation.  This  program  will  adopt  the  Navy  Nurse  Corps’ 
Workload  Management  SystBm  for  Nursing.  This  method  of 
classifying  patients  exists  in  all  inpatient  Navy 
facilities.  The  Nurse  Corps  has  established  solid 
criteria-based  critical  indicators  which  this  program  will 
exploit  for  deriving  a  classification  level.  The 
classification  level  equates  an  amount  of  nursing  time 
required  to  give  patient  care. 
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The  Navy  Nurse  Carps  is  ahead  of  its  civilian 


I 


! 


counterparts  in  its  use  of  a  sophisticated  tool  to  measure 
patient  classification  level.  The  use  of  the  Workload 
Management  System  worldwide  has  given  the  Nurse  Carps 
excellent  data  to  improve  its  system.  The  continual 
drawback  that  many  manual  tools  have,  including  this  one, 
is  subjectivity  and  inconsistency  across  users.  With 
inservice  training  and  auditing,  the  Nurse  Corps  attempts 
to  keep  the  reliability  af  its  model  high.  Automating  such 
an  activity  would  enhance  consistency  and  accuracy. 

4.  Expert  Sustem 

This  program  will  introduce  an  expert  system 
limited  to  the  patient  classification  documentation.  Ryan 
defines  an  expert  system  as  a  system  capable  of  operating 
with  a  largB  knowledge  database,  processing  information  an 
expert  level.  She  continues  with 

benefits  af  expert  systems  are  that  thBy  can  capture, 
replicate,  and  distribute  expertise.  C1B:77J 

As  a  large  standardized  nursing  knowledge  database 

accumulates,  the  application  of  expert  systems  will  increase 

in  importance. 

For  this  project,  patient  classification  adapts 
well  to  an  expert  system  approach.  The  critical  indicators 


and  their  associated  value  can  easily  fit  the  if-then 
format  of  most  expert  systems.  The  expert  system  will 
extract  from  a  patient’s  orders  the  applicable  critical 


indicator  values  and  calculate  a  classif icat ion  level . 
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III.  REQUIREMENTS  DEFINITION  AND  ANALYSIS  STAGE 

The  first  stage  of  software  development  is  the 
requirements  definition  and  analysis  stage.  This  stage 
defines  the  purpose  of  thB  system  and  examines  thB 
different  components  that  ultimately  make  the  whole.  The 
prototype  system  provides  the  nurse  with  a  tool  to  assist 
in  the  documentation  of  the  nursing  care  plan  and 
calculation  of  a  patient  classification  level. 

A.  PATIENT  ADMISSIONS 

Nurses  cannot  exercise  their  skills  without  patients. 
The  ability  to  bring  patients  into  the  system  Cadmissionl, 
and  have  them  exit  the  system  Cdischargel  provides  a 
realistic  situation.  The  varying  population  number 
necessitates  an  expandable  capacity  for  holding  patient 
information . 

B.  NURSING  CARE  PLAN  AND  PATIENT  ORDERS 

A  patient  occupies  a  specific  bed  in  a  numbered  room 
located  on  one  of  several  nursing  wards.  After  the  patient 
arrives  on  the  ward,  doctors  write  orders.  The  nurse 
interviews  the  patient  and  develops  a  nursing  care  plan. 

The  care  plan  consists  Df  one  or  more  nursing  diagnoses. 
Each  nursing  diagnosis  has  one  or  more  assessments,  related 
factors,  patient  goals  and  nursing  orders.  The  initial 


doctor’s  and  nurse’s  orders  comprise  the  patient  care 
requirements.  The  patient  care  requirements  determine  the 
patient  classification  level. 

The  orders  determine  the  patient  care  requirements. 

Both  doctor’s  and  nurse’s  orders  dictate  nursing  care 
activities.  The  calculation  of  a  patient  classification 
hinges  on  the  analysis  of  the  patient  orders  for  relevant 
critical  indicators. 

A  patient  order  consists  of  the  date,  the  time,  the 
order,  the  frequency  of  the  order,  and  the  practitioner 

initiating  the  order.  Date  and  time  dependency  is  critical 
far  patient  orders.  An  order’s  datB  and  timB  determines 
whether  the  order  is  current  or  due  for  deletion.  The 
order  date  is  also  important  for  patient  classification 
determination.  Patient  orders  prescribed  for  a  specific 
number  or  repetitions  Ci.e.  x  3  or  x  1B3  are  nonrecurring 
orders.  Nonrecurring  orders  input  to  patient 
classification  calculation  only  on  the  date  they  were 
issued . 

The  purpose  of  the  critical  indicators  is  to  easily 
translate  patient  orders  to  a  patient  classification  level 
in  a  manual  system.  Only  those  orders  that  closely  parallel 
the  critical  indicators  in  the  Nurse  Corps’  Workload 
Management  System  for  Nursing  need  consideration. 


A  need  exists  for  the  user  to  identify  o  patient  then 
move  on  to  select  patient  orders.  The  indexing  of  orders 
to  allow  for  logical  progression  aids  the  process. 

Individual  orders  will  need  to  be  linked  to  a  relevant 
critical  indicator.  Many  critical  indicators  are  time  or 
frequency  dependent.  The  program  should  tie  these  factors 
together.  Patients  frequently  require  several  doctor’s 
orders  from  the  same  section.  The  program  would  need  to 
accommodate  for  some  type  of  looping  to  handle  multiple 
order  entry  for  a  single  subcategory. 

ThB  practitioner  is  a  doctor  or  a  nurse  qualified  ta 
enter  patient  orders.  The  program  should  have  an  internal 
check  to  assure  that  a  practitioner  has  limited  ordering 
access  pertinent  to  their  qualifications. 

The  patient’s  condition  is  dynamic.  The  program  will 
need  ta  provide  an  easy  method  to  modify  changes.  Nursing 
care  plans  vary  in  length  and  content.  Some  patients  have 
multiple  nursing  diagnoses,  while  others  have  only  one. 

The  program  would  have  ta  accommodate  for  these  variations. 

Some  method  would  need  to  be  available  for 
communicating  modifications  to  staff  members.  This 
communication  process  is  best  if  the  output  is  in  a  printed 
format.  Printed  output  allows  for  the  information 
transmittal  ta  staff  members  even  when  away  from  the 


computer  location. 


A  number  of  nursing  diagnoses  in  the  system  is 
desirable.  Patient  needs  cannot  be  anticipated.  A  variety 
of  diagnoses  allows  for  specific  selection.  Because  a 
nursing  diagnosis  requires  documentation  of  assessments, 
related  factors,  goals  and  nurses'  orders,  these  functions 
rsqu i rs  inclusion. 

C.  TRACKING  USERS  AND  PROGRAM  SAFEGUARDS 

Some  input  information  should  distinguish  for  the 
system  that  the  current  user  is  either  a  doctor  or  a  nurse. 
A  doctor  mill  want  to  choose  a  ward  for  patient  admission, 
identify  the  patient  and  select  orders.  A  nurse  mill  mant 
to  select  a  mard  and  patient  but  then  either  select  a 
nursing  diagnosis  or  calculate  a  patient  classification. 

The  doctor/nurse  functions,  although  related  by  patient 
selection  are  different  in  nature.  When  users  enter  the 
system  the  program  should  identify  mhether  they  are  doctors 
or  nurses,  and  direct  their  attention  to  the  appropriate 
branch  of  the  program . 

The  program  selectively  allows  access  to  program 
information  to  eliminate  unauthorized  access.  The  program 
contains  hypothetical  patient  information.  Nevertheless, 
addressing  the  privacy  of  sensitive  patient  information  is 
relevant  even  in  a  prototype  setting.  Safeguards  built 
into  the  system  reduce  the  chance  of  successful 
unauthorized  entry. 


D.  USING  AN  EXPERT  SYSTEM  FOR  DETERMINING  PATIENT 

CLASSIFICATION  LEUEL 

A  self-imposed  requirement  of  the  system  is  to  use  an 
expert  system  to  determine  the  patient  classification 
level .  This  expert  system  should  interpret  the  patient 
order  as  to  which  critical  indicator  applies  and  the 
frequency  of  its  performance.  The  expert  system  then 
translates  that  information  into  patient  care  points  which 
then  calculates  a  patient  classification  level. 

The  use  of  an  expert  system  would  allow  a  user  the 
option  of  reviewing  rulBS  used  in  calculating  the  patient 
classification.  The  patient  classification  tool  is 
continually  evolving.  By  monitoring  rules  and  their 
underlying  critical  indicators,  the  user  gets  a  visual 
output  of  the  points  and  how  they  were  derived. 


IU.  DESIGN  STAGE 


*  * 
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The  design  stage  attempts  to  ansuer  how  the  system  will 
accomplish  thB  requirements  outlined  in  the  requirements 
definition  and  analysis  stage. 

A.  PATIENT  ADMISSION  CRITERIA 

The  need  analysis  pointed  out  the  requirement  for 
handling  varying  numbers  of  patients  with  set  criteria  on 
each  patient.  Two  options  to  inset  this  requirement  are  an 
automated  file  system  or  a  database  system.  Generalized 
patient  data  that  would  need  to  be  included  are:  patient’s 

first,  middle  and  last  names;  their  rate  or  rank;  their  %f*>£ 

v- 1 

family  member  prefix  concatenated  with  their  social 
security  number  giving  a  unique  identifier;  birthdate;  age; 
sex;  admission  date;  hospital  registration  number;  medical 
diagnosis;  physician;  prognosis;  allergies;  as  well  as 
their  nursing  ward,  room  and  bed  assignments.  CSee 
Appendix  A,  Data  Dictionary;  Appendix  B,  Structure  Chart; 
and  Appendix  C,  User’s  Manual  far  additional  information.! 

B.  NURSING  CARE  PLAN 

A  representative  four  of  the  5£  approved  nursing 
diagnoses  were  selected  due  to  the  floppy  disk  capacity 
constraint.  To  some  degree,  every  patient  experiences  self- 
care  deficit  when  admitted  to  the  hospital.  Other  diagnoses  .-‘v. 


20 


are  mare  applicable  to  same  specific  area  in  nursing.  The 
three  other  nursing  diagnoses  reflect  diagnoses  frequently 
seen  in  a  military  hospital  setting.  These  diagnoses  are: 
comfort,  alteration  in.-  pain;  communication,  impaired: 
verbal;  and  impaired  physical  mobility. 

Critical  indicators  that  fall  under  the  independent  and 
interdependent  roles  of  nursing  need  to  be  identified. 

After  identification,  these  indicators  require 
incorporation  into  the  nursing  order  screens  for  selection. 
These  critical  indicators  need  to  be  back-chained  to  one  of 
the  four  nursing  diagnoses,  to  provide  for  their  selection. 

The  critical  indicators  on  the  Patient  Classification 
Critical  Indicators  C19.-10D  list  that  were  identified  as 
independent  or  interdependent  nursing  functions  were:  all 
activities  of  daily  living  except  turning  frame;  spoon 
feeding  adult  and  children  patients;  accompany  patient  off 
ward,  other  activities  requiring  nurse’s  time  and  special 
procedures;  range  of  motion  exercises;  and  all  items  listed 
under  teaching  and  emotional  support.  This  is  an  initial 
grouping,  conservatively  chosen. 

Multiple  nursing  diagnoses,  with  their  corresponding 
assessments,  related  factors,  goals  and  nursing  orders,  can 
be  handled  with  either  a  file  system  or  a  database  system. 

C,  DOCTOR  ORDER  CRITERIA 

The  criteria  to  include  doctor  order  categories  will  be 
to  meet  critical  indicator  requirements  and  provide  a 


representative  model  of  patient  orders.  An  admission 
section  monitors  the  patient  Flow.  This  satisfies  the 
critical  indicators  of  admitting  and  transferring  patients. 
An  activity  section  captures  the  mobility  level  of  a 
patient.  A  diet  section  captures  the  dietary  requirements 
of  a  patient.  A  section  provides  selections  of  intravenous 
and  blood  products  that  a  patient  might  require. 

Laboratory  and  pharmacy  sections  allow  orders  for  lab  tests 
and  medications.  A  monitoring  section  allows  options  for 
monitor  orders.  A  radiology  section  captures  radiology 
test  orders.  A  respiratory  therapy  and  vital  sign  section 
allows  orders  that  relate  to  those  areas.  Finally,  a  ward 
routine  section  captures  the  nursing  care  activities 
normally  restricted  to  the  ward  setting. 

These  categories  would  allow  for  the  dependent  and 
interdependent  functions  of  nursing,  which  the  critical 
indicator  list  includes.  Either  a  file  or  a  database 
implementation  would  satisfy  these  requirements. 

D.  PATIENT  ORDERS 

Microcomputers  have  the  ability  to  maintain  an  internal 
clock  upon  entry  of  the  current  date  and  time.  The  program 
would  need  to  pick  up  this  data  From  the  system’s  clock  to 
attach  it  to  patient  orders.  The  actual  order  length  would 
need  limitation  to  a  number  that  would  best  suit  a  screen 
presentation  Format.  The  number  of  options  for 


time/frequency  would  need  to  include  those  commonly  found 
in  a  medical  environment. 

The  design  should  accomplish  the  looping  for  multiple 
orders  in  a  single  subcategary .  Once  selected,  an  order  is 
activated  and  placed  in  an  order  file  or  database.  The 
program  returns  for  another  order  or  to  have  the  user  select 
to  move  on . 

E.  USER  INFORMATION 

The  use  of  a  user  chosen  password  to  access  the  program 
would  accommodate  all  of  the  identified  requirements. 

Utilizing  a  user  information  database  would  provide  for 
users  to  be  added  or  deleted  from  the  program.  The 
database  carries  their  status  within  the  organization  and 
provides  an  access  level  for  legal  entry  into  the  program. 

A  doctor  or  nurse,  by  signing  on  to  the  system  and  entering 
their  valid  password,  would  dictate  which  branch  the 
program  should  route  them  through.  The  password  would  also 
limit  those  not  authorized  to  use  the  system  from  entering 
the  program. 

To  provide  for  a  degree  of  user  specialization,  the 
design  proposes  four  areas  of  access.  The  First  is  for 
admissions  personnel.  In  a  hospital,  the  admissions 
department  is  physically  separate  from  the  ward.  Admissions 
personnel  are  responsible  for  the  input  of  patient  information 
The  sscond  group  is  the  nurses  who  develop  the  nursing 
care  plan  and  determine  the  patient  classification.  The 


third  group  is  the  physicians  who  select  doctor’s  orders. 

The  fourth  group  is  the  information  systems  personnel.  Their 
role  mould  be  to  add  nem  users  and  delete  obsolete  ones. 
Access  level  assignments  occur  during  routine  check-in 
procedures  of  personnel.  The  actual  assigned  level  mould 
depend  upon  the  employing  department  and  the  job  position. 
Additionally  a  fifth  group  exists  far  the  prototype  model. 
This  is  a  group  of  users,  mith  passmords  alloming  access 
to  all  areas  to  aid  in  the  testing  and  integration  of  the 
saftmare  model. 

F.  EXPERT  SYSTEM 

The  expert  system  calls  for  special  input 
consideration.  A  patient  order  consists  of  the  order  and 
the  frequency.  Major  order  headings  Ci.e.  vital  signs!)  can 
be  categorized  as  a  qualifier.  Listed  under  each  qualifier 
is  its  potential  values  Ci.e.  QID  or  less,  q4h  or  x  S,  q2h 
or  x  12,  qlh  or  x  24] .  From  this  system  of  qualifier  and 
value,  rulBS  can  be  derived  Ci.e.  vital  signs  DID  or  Ibss 
receives  a  value  of  1  patient  point).  By  splitting  the 
critical  indicators  into  qualifiers  and  values,  thus 
setting  up  conditions,  the  formulated  rules  allom  the 
system  to  derive  a  patient  classification  level.  CSee 


Appendix  D . ) 


G .  SCREEN  FORMAT 


User  friendliness  is  a  goal  many  programs  strive  to 
achieve.  This  program  will  follow  many  of  the  suggestions 
of  Monk’s  text  on  Fundamentals  of  Human-Computer 
Interaction.  C20J  The  program  will  rely  on  consistent 
screen  formats  which  locate  user  instructions  in  the  same 
place  on  each  screen.  After  patient  identification,  thB 
patient  information  is  put  on  every  screen  so  the  user  has 
no  question  which  patient  he  has  selected.  The  program 

will  providB  thB  user  with  consistent  input  locations. 
Screens  are  uncluttered  and  easy  to  follow.  The  screen 
color  is  white  lettering  on  blue  background.  Although 
speed  is  not  a  prime  consideration  for  this  model,  it 
influences  the  selection  of  the  method  of  screen 
projection.  A  software  utility  called  FlashcodB  creates 
the  screen  projections.  Where  possible,  the  user  returns 
to  a  previous  screen,  or  to  a  home  base  to  reorient 
themselves.  A  rudimentary  help  facility  allows  on-line 
assistance.  The  help  facility  demonstrates  its  function 
rather  than  providing  indepth  assistance  with  this 
prototype  model.  CSee  Appendix  E  and  Appendix  F.D 

H.  SOFTWARE  SELECTION 

With  hardware  choice  set  by  the  constraints  of  the 
user,  software  compatibility  is  the  remaining  issue. 
Numerous  software  packages  exist  for  IBM-compatible 
microcomputers.  Information  m  a  database  format  provides 
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increased  data  flexibility  and  maneuverability.  Some 
advanced  programming  tools  provided  by  database  software 
producers  simplify  the  task  of  programming.  These  are 
major  incentives  to  choose  a  database  orientation.  The 
database  language,  dBase  III,  has  user  friendly  features 
and  the  capability  far  meeting  most  of  the  identified 
requirements.  An  area  for  which  dBase  III  can  only  provide 
a  partial  solution  is  the  expert  system.  The  dBase  III 
program  has  the  ability  ta  calculate  patient  point  totals 
and  derive  a  patient  classification  IbvbI .  It  lacks  the 
option  of  allowing  the  user  to  see  why  it  calculated  its 
results  in  a  specific  way. 

The  expert  system  chosen  is  Exsys.  Exsys  is  an  off- 
the-shelf  expert  system  that  can  accommodate  thB  number  of 
critical  indicators  outlined  in  the  Navy’s  Nutsb  Corps’ 
Workload  Management  System  for  Nursing.  This  software 
product  can  also  da  the  necessary  calculations  required  to 
arrive  at  a  patient  classification  level. 

The  information  format  coming  into  Exsys  requires  the 
statement  of  qualifiers  and  values.  The  dBase  III  language 
accommodates  far  this  by  including  the  qualifier  and  value 
with  each  order  selected.  A  salient  feature  of  Exsys,  that 
makes  it  especially  appropriate  for  this  design,  is  its 
ability  to  import  data  from  an  output  file.  Exsys  operates 
as  an  interactive  independent  program  using  the  same 
conditions  and  rules.  This  option  is  useful  because  of  the 


iterative  nature  of  both  the  critical  indicator  development 
and  that  envisioned  for  this  system.  In  addition,  Exsys 
does  allow  the  user  to  view  rules  used  to  derived  a 
classif ication .  ft  visual  check  of  the  applied  rules 
against  the  individual  patient  order  allows  the  achievement 
of  greater  reliability.  CSee  Appendix  D.l 
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U.  PROGRAnniNG  STAGE 


The  programming  stage  constructs  a  product  For  the 
user.  The  software  product  incorporates  details  identified 
in  the  analysis  and  design  stages  to  produce  a  workable 
solution.  The  product’s  overview  is  presented  in  Figure  1. 


Figure  1  Nursing  Prototype  Product  Overview 
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A  modular  approach  was  used  For  programming.  Appendix 


B  displays  the  design  modular  structure  of  the  prototype 
system — a  detailed  version  of  Figure  1.  This  structure  was 
used  as  a  guide  m  program  development.  Programming 


modularity  allows  the  programmer  to  work  with  smaller  more 
manageable  units.  This  enables  the  programmer  to  easily 
test  and  debug  a  module  before  integrating  it  into  the 
system.  The  use  of  comments  throughout  the  programming 
effort  attempts  to  improve  the  maintainability  a f  the 
program.  CSee  Appendix  E  for  program  listings.] 

A.  TRACKING  USERS  AND  PROGRAM  SAFEGUARDS 

In  programming  modules  the  author  has  tried  to  minimize 
the  number  of  steps  required  for  the  user  to  move  between 
modules.  Whenever  passible,  the  system  automatically 
advances  the  program  to  the  next  screen . 

Screens  are  used  in  this  chapter  to  demonstrate  the 
method  used  to  convert  design  details  to  workable 
solutions . 

The  program  opens  with  an  introductory  screen  C Figure 
R] .  The  screen  gives  information  on  the  organizations 
supporting  the  program  and  identifies  the  author. 

Depressing  any  key  advances  the  program  to  a  screen 
requesting  a  password  CFigure  33.  Advancing  beyond  the 
second  screen  requires  a  valid  password.  The  program 
compares  the  entered  password  against  a  database  of  user’s 
passwords.  If  the  password  is  a  match,  the  user  moves 
forward  to  the  main  branching  module  of  the  program. 
Incorrect  passwords  deny  access  with  the  opportunity  to 
re-enter  a  password . 
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Ualidation  Screen 


As  a  result  of  entering  a  valid  password,  the  system 
now  recognizes  the  user  by  name  and  access  level  CSee 
Figure  43 . 


The  four  user  access  levels  available  in  this  program  are 
admissions  personnel,  nurses,  doctors,  and  administrative 
personnel.  The  current  user’s  name  appears  in  the  bottom 
left  corner  of  each  screen.  Since  the  system  now 
recognizes  a  user  by  name  and  access  level ,  the  main 
branching  module  restricts  the  user's  entry  to  a  branch 
corresponding  to  that  access  level . 

The  main  branching  module  provides  five  options  far 
selection.  The  first  option,  which  appears  on  essentially 
every  screen,  is  to  sign-off  from  the  system.  This  ends 
the  current  user’s  session,  and  returns  the  program  to  the 
introductory  module.  The  other  four  options  relate  to  the 


main  sections  of  the  program. 


Patient  Admission  Farm 


Last  Name: 

rirst  Nams: 

Did  Initial: 

Rata/Rank : 

FMP-SSN: 

Blrthdats:  /  / 

Age : 

Sax: 

Admit  Dots:  /  / 

Figure  6  Patient  Admission  Screen 

the  program  purges  all  patient  records  Flagged  for 
discharge.  The  program  also  purges  any  patient  data  m 
other  databases  with  identical  Fmp-ssn  identifiers.  [See 
Appendix  G . 3 

This  module  limits  itself  to  handling  primitive 
admit/discharge  situations.  Although  limitBd,  this  module 
allows  the  nurse  user  to  test  a  number  of  patient  scenarios 
while  working  with  the  prototype  system. 

C.  DOCTOR  ORDER  SECTION 

The  doctor  option  of  the  main  branching  module  advances 
the  physician  to  the  nursing  ward  selection  module.  The 
doctor  chooses  between  one  of  two  nursing  wards  CFigure  73. 
A  surgical  and  medical  ward  option  reflects  the  major 
divisions  of  patients  in  a  hospital  .  Options  to  return  to 


Registration  No-, 
nadlcol  Diagnosis: 
PMgsician: 
Prognosis : 
Allergies: 

Nursing  ward: 

Room  Numoer : 

Bed : 


thB  main  branching  madulB  ar  tc  sign-aff  thB  system  arB 
also  provided. 


A  ward  selection  moves  the  program  to  one  of  two 
nursing  wards  containing  six  beds  [Figure  83  „ 
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Patients’  names,  listed  in  the  patient  information 
database,  appear  in  their  ward,  roam  and  bed  assignments. 
Ualid  options  include:  sign-off,  return  to  mam  branching 
module,  and  selection  of  a  patient  assigned  to  an  occupied 
bed . 

A  patient  selection  advances  the  physician  to  the 
doctor’s  branching  module  CFigure  93. 
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Figure  9 


23  Admit  /  Transfer  /  Discharge  Patient 
3  3  Review  rtedlcal  Orders 
H 3  Print  Medical  Orders 
S3  Discontinue  An  Order 


63  Master  Screen 


Select  one  number  CO-63  — ->  ■ 


Doctor’s  Master  Screen 


The  doctor's  menu  provides  options  for  deciding  on  the 
next  activity.  With  the  exception  of  output  forms  Ci.e. 
review  of  the  doctor  orders  on  screen  or  printed},  any 
selection  results  in  menu  modules  for  doctor's  orders 
CFigure  103.  Many  orders  request  additional  order 
information  moving  the  program  to  a  time/frequency  module. 
The  doctor’s  order  with  the  Frequency  determines  a 
qualifier  and  value  listing  in  the  patient’s  order 
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Figure  10  Ward  Routine  Screen 

database.  Qualifier  and  value  information  transfers  to  the 
expert  system.  In  addition,  a  patient  point  value  appears 
in  the  patient  order  database.  This  number  provides  the 
option  af  dBase  III  calculating  its  own  internal  patient 
classification  level.  CSee  Appendix  G.3 


D.  NURSING  CARE  PLAN  AND  PATIENT  CLASSIFICATION  FUNCTION 
At  the  main  branching  module,  the  nursing  option 
advances  the  program  to  the  nursing  ward  selection  modulB 
CFigure  6,73.  This  module,  and  the  patient  selection 
modules  are  identical  to  thosB  presented  to  the  physician. 
The  program  sets  an  internal  flag  to  indicate  the  access 
level  of  the  user.  After  patient  selection,  the  nurse 
automatically  tracks  to  the  nursing  branching  module 


C  F igure  113. 
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Figure  11  Nursing  Master  Screen 

The  nurse  branching  module  provides  a  menu  For 

direction  Far  the  user  ta  procBBd .  Options  includB  the 
selBction  af  a  nBw  nursing  carB  plan,  madiFying  an  Bxisting 
care  plan,  reviewing  or  printing  patient  care  requirements 
Ccansisting  of  all  active  patient  orders! ,  reviewing  or 
printing  the  nursing  care  plan  information,  and  determining 
the  patient  classification  system. 

After  the  nursing  care  plan  option  selection,  the 
program  advances  to  a  module  allowing  for  a  new  care  plan 
entry  or  a  modification  of  an  existing  care  plan.  The 
choice  af  a  new  nursing  care  plan  provides  the  option  of 
the  Four  selected  care  plans  [Figure  123. 

All  patients  require  a  minimum  oF  one  care  plan  [self- 
care  deficit!.  All  diagnoses,  assessments,  goals  and 
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nursing  generated  orders  enter  into  a  nursing  care  database 
[Figure  133.  In  addition  to  the  nursing  care  database, 
nurse  generated  orders  are  also  placed  in  the  patient  order 
database  for  inclusion  in  the  calculation  of  the  patient 
classification.  [See  Appendix  F  for  additional  screens . 3 
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Figure  12 
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Figure  13 
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If  the  option  selected  inactivates  a  portion  of  the 
nursing  care  plan,  the  user  moves  to  a  module  for  review  of 
existing  care  plan  entries.  If  an  entry  is  inactivated, 
the  program  purges  all  portions  related  to  that  specific 
entry  including  the  order  in  the  patient  order  database. 

The  selection  to  review  or  print  the  patient  care 
requirements  consists  of  all  active  patient  orders.  Active 
orders  consist  of  previously  selected  orders,  and  those 
orders  selected  far  a  specific  frequency  Ci.e.  x  2]  on  the 
date  of  their  selection.  The  same  criteria  applies  when 
determining  patient  classification  [Figure  143. 


Press  —  Ctrl  and  S  —  Keys  To  Pause  The  Scrolling  If  Necessary 
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Figure  14 


Patient  Requirement  Screen 


The  nurse  can  also  select  to  review  only  the  nursing  care 
plan  portion  of  the  patient  record.  This  enables  review  of 


the  nursing  care  plan  to  determine  if  modifications  or 


updating  is  necessary. 
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Two  options  For  determining  patient  classification 
exist.  The  First  option  keeps  the  user  in  the  current 
program,  and  generates  a  number  with  a  corresponding 
patient  classification  level  CFigure  15]. 


Patient:  nary  nieer 

1 3  In:  Category  II 

Point  Value  la:  27 


0  ! 

K  I 

a.  _ _ _ _ _  _ —  . . . . . 

LJ 

fc  Figure  15  Patient  Classification  Screen 

Each  order  receives  a  point  value  based  upon  the  order 
selected  and  the  frequency  far  that  order.  Then  dBase  III 
sums  these  points  and  assigns  a  patient  classification 
level.  The  program  does  not  explain  how  this  number  was 
calculated.  A  less  user-Fr iendly  method  results  when 
selecting  the  second  option — that  of  external  calculation 
of  the  patient  classification.  The  user  exits  the  dBase 
program,  changes  floppy  disks,  and  runs  Exsys.  The  patient 
point  value  and  level  would  not  change,  but  the  expert 
system  program  displays  rules  used  ta  derive  the 
classification  level. 
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E.  INFORMATION  SYSTEM 


The  information  system  section  of  the  program  is  a 
parallel  development  of  the  admission’s  department.  User’s 
of  the  program  must  have  the  appropriate  access  level  to 
advance  beyond  the  main  branching  module  CFigure  33.  The 
program  limits  transactions  to  adding  another  user  to  the 
system  or  deleting  a  current  user  CFigures  IB,  173. 


--*  SELECT  ADD  /  DELETE  A  USER  **• 

n 

Add  A  uaor 

S3 

Delate  A  uaar 

03 

Sign-Off 

Currant  Uaer : 

Select  ona  number  CO-23  » 

Figure  16  Add  /  Delete  A  User  Screen 


F.  PROGRAM  TESTING 

Testing  is  an  aspect  of  the  programming  stage.  Testing 
criteria  are  three-fold.  First,  procedural  testing  of 
separate  modules  Cwhite-box  testing]  takes  placB  as  modules 
are  completed.  Next,  integration  testing  assures  modular 
interfaces  are  smooth  from  one  program  to  another  [black¬ 
box  testing].  Finally,  independent  use  by  a  third  party 
tests  the  program  in  a  simulation  performance.  Where 


UI.  IMPLICATIONS  FDR  FUTURE  STUDIES 

Creating  a  hospital  information  system  model  is  a  time- 
consuming  methodical  process.  A  program  using  nursing 
diagnosis  to  drive  nursing  care  plans  produces  a  logical 
product.  The  major  implications  of  this  program  center  on 
the  automation  of  the  patient  classification  system. 

Tying  critical  indicators  to  patient  orders  is  an 
arduous  task  that  required  many  iterations.  The  program 
makes  assumptions  about  orders.  This  program  assumes  the 
physician  knows  the  difference  between  a  simple  and  complex 
dressing  change  Csee  Figure  103.  ThB  distinction  between  a 
15  minute  dressing  change  and  30  minute  dressing  change  can 
be  very  subjective.  Frequency  of  patient  orders  relates  to 
almost  all  the  critical  indicators.  This  program  separates 
the  time/frequency  options  into  prn  Cas  necessary],  once  a 
day,  twice  a  day,  3,  4,  6,  12  and  24  times  a  day.  The 
latter  seven  options  divide  Further  into  recurring  orders 
Ci.e.  twice  a  day]  verses  nonrecurring  orders  Cx  123. 
Recurring  orders  continually  count  toward  the  patient 
classification  level  until  discontinued.  The  nonrecurring 
orders  count  only  an  the  day  ordered.  Nurses  calculate 
classification  levels  daily  at  1400.  Many  nonrecurring 
orders  are  completed  by  that  time  and  should  not  be 
calculated.  The  program  counts  these  orders. 
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Duplicate  orders  result  in  duplicate  point 
calculations.  For  example,  if  a  doctor  and  a  nurse  each 
order  passive  range  of  motion  exercises  for  a  patient  TID, 
the  patient  point  total  would  be  B  vice  the  correct  total 
of  4.  The  program  tallies  2  paints  far  isolation 
precautions  regardless  of  the  number  af  gown  and  glove 
changes.  The  correct  assignment  gives  2  points  for  every 
eight  gown  and  glove  changes. 

In  the  current  manual  system,  doctors  and  nurses  assume 
that  new  orders  supersede  previous  orders.  If  doctors  and 
nurses  hold  to  that  assumption,  this  program  produces 
inaccurate  results.  For  example,  if  a  patient's  condition 
improves,  the  doctor  writes  an  order  for  vital  signs  Q4h 
Cwith  a  patient  paint  value  of  23  without  deleting  the 
original  order  af  vital  signs  Q2h  Cpatient  point  value  of 
43.  The  program  totals  vital  signs  points  as  B  instead  of 
2. 

Some  critical  indicators  do  not  readily  convert  to  a 
patient  point  value.  The  program  accommodates  for  three  of 
these  critical  indicator  exceptions.  The  critical 
indicator  for  apnea  monitor,  temperature  monitor,  etc.  is 
not  additive  and  as  such  translates  indirectly  from  patient 
orders.  The  critical  indicator  For  specific  gravity, 

Buiac,  etc.  is  additive  across  orders  resulting  in  a  point 
total  assignment.  The  classification  listing  limits 
emotional  support  to  a  maximum  total  point  value  of  10. 


Assigning  a  patient  point  value  to  these  patient  orders 
requires  an  intermediate  variable.  The  calculation  occurs 
First  for  the  intermediate  variable.  This  amount  then 
Feeds  into  the  sum  of  other  patient  point  values. 

Medication  and  laboratory  critical  indicators  presented 
difficulty  in  program  translation.  The  program  assigns 
paints  for  medication  and  laboratory  samples  on  a  per  order 
basis  rather  than  on  a  per  trip  basis.  The  intended 
critical  indicator  for  both  factors  assesses  points  on  a  per 

trip  basis.  ThB  nurse  actually  delivers  all  thB  medications 
far  a  specific  time  in  one  trip.  ThB  nurse  drauis  numerous 
lab  tests  with  one  venipuncture.  The  program  calculates 
point  values  based  an  individual  medication  or  laboratory 
test  order.  Aggregating  nonintravenous  medications  and 
laboratory  tests  into  time  groups  would  provide  accurate 
results.  However,  the  effort  required  to  program  in  time 
groups  was  counterproductive  For  this  project. 

The  program  overlooks  patient  situations  requiring  more 
than  one  staff  member.  Currently,  ail  critical  indicators 
except  turning  frame,  which  explicitly  includes  two  staff 
members,  calculate  an  a  one  staff  member  per  patient  basis. 

To  accommodate  for  patient  orders  not  currently  listed 
on  the  nursing  order  screen,  an  ’’other  orders"  option 
exists  Csee  Figure  133.  The  option  allows  any  nursing 
order  entry.  Entries  in  this  category  result  in  no  patient 
points  awarded  to  those  orders.  Despite  their  critical 


indicator  value,  ths  program  lacks  the  refinement  necessary 
to  assign  a  value  to  this  order. 

riany  of  the  areas  addressed  can  be  corrected  by  going 
into  thB  expert  system’s  interactive  mode.  In  this  mode 
the  program  calculates  entries  in  a  more  thorough  manner. 
The  trade-off  for  accuracy  is  user  subjectivity  in 
selecting  applicable  critical  indicators.  Another 
trade-off  is  the  time  required  to  traverse  B5  qualifiers  in 


a  real  time  setting. 
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Automated  systems  exists  that  combine  nursing  diagnoses 
with  the  nursing  care  planning  function.  No  automated 
system  on  the  market  integrates  nursing  diagnoses,  nursing 
care  plans  and  patient  classification.  The  Navy  Nurse 
Corps  has  a  sophisticated  patient  classification  tool.  The 
tool  lists  critical  indicators  which  adapt  readily  to 
automation  to  produce  a  classification  level. 

This  thesis  project  is  a  programming  effort  producing  a 
prototype  software  product  marrying  three  nursing 
activities — nursing  diagnosis,  nursing  care  plans,  and 
patiant  classification.  This  prDjBCt  demonstrates  one 
possibility  for  integrating  the  nursing  carB  plan  using 
nursing  diagnosis  and  the  Navy  Nurse  Corps’  patient 
classification  system.  The  program  extracts  points  for 
critical  indicators  from  patient  orders. 

The  greatest  incentive  for  marrying  nursing  diagnosis, 
nursing  care  planning  and  patient  classification  is  to 
improve  patient  care.  Improved  patient  care  results  from 
precise  documentation  and  uniform  staffing.  Nurses 
acknowledge  the  need  to  document  plans  of  care  to  serve  as 
a  guide  for  all  staff  members.  Nursing  is  a  seven  day  a 
week,  24  hour  a  day  profession.  Care  plans  provide  a 
consistent,  comprehensive  method  for  delivery  of  patient 


core.  Without  this  plan  of  cars,  valuable  nursing  time 
disappears  while  continually  redefining  basic  patient  care 
requirements.  Successfully  implemented  automated  systems 
have  improved  documentation  by  making  it  easier,  less 
time-consuming,  and  more  user  gratifying. 

Patient  care  is  also  enhanced  through  better  staffing 
of  nursing  units.  Staffing  levels  relate  directly  to 
patient  care  requirements  determined  by  patient 
classification.  The  program  automates  the  patient 
classification  process  to  calculate  an  accurate  and 
abjective  measure  of  patient  care  requirements.  Staffing 
to  a  level  that  can  be  objectively  quantified  is  a  goal. 
Such  a  level  assures  nursing  administrators  their  scarce 
nursing  resources  are  properly  utilized  while  at  the  same 
time  providing  staffing  levels  in  keeping  with  safe 
standards  of  care. 


1 . 


2 . 

3. 


4. 


5. 


R  v* 


6. 


7. 


a. 

9. 


10 

11 

12 


13 


■W  *1 


LIST  OF  REFERENCES 


Reider,  Karen  A.,  and  Norton,  Dena  A.,  "An  Integrated 
Nursing  Information  System:  A  Planning  tlodel,"  Computers 
in  Nursing.  Uolume  2,  Number  3,  Nay/June  1984,  p.  7B . 

Pressman,  Roger  S.,  Software  Engineering  A  Practianer's 
Accroach ,  dcGraw-Hill  Book  Company,  c.  1982. 

Federal  Software  Testing  Center,  ’’Establishing  a 
Software  Engineering  Technology CSETD ,  ”  Office  of 
Software  Development,  Report  OSD/FSTC  83/014,  June, 

1983. 

UJesseling,  Elizabeth,  "Automating  the  Nursing  History 
and  Care  Plan, ”  The  Journal  of  Nursing  Administration. 
Uolume  2,  Number  3,  flay/June  1972,  pp .  34-38. 

Light,  Nancy,  "Computers  In  Nursing  Practice,  On-line 
Nursing  Care  Plans,"  Computers  in  Nursing.  Uolume  1, 
Number  3,  July  1983,  p.  4. 

Kiley,  darylou,  et  al . ,  "Computerized  Nursing 
Information  Systems  CNIS3,”  Nursing  donaaement ,  Uolume 
14,  Number  7,  July  1983,  pp .  2B-29 . 

Kiley,  darylou,  et  al. ,  "Computerized  Nursing 
Information  Systems  CNIS3,”  Nursing  danoaement.  p.  27. 

Accreditgtion  danuol  for  Hospital’s,  c.  1984,  pp .  98-99. 

Brunner,  Lillian  Sholtis  and  Suddarth,  Doris  Smith,  et 
al-.  The  Lippincott  danuol  of  Nursing  Practice.  J.  B. 
Lippincott  Company,  c.1974. 

Little,  Dolores  E.  and  Carnevali,  Doris  L.,  Nursing  Care 
Planning .  J.  B.  Lippincott  Company,  c.  1969. 

Little,  Dolores  E.  and  Carnevali,  Doris  L.,  Nursing  Core 
Planning 

Hinson,  Irene,  Silva,  Nettie  and  Clapp,  Pat,  "An 
Automated  Kardex  and  Care  Plan,  ’’  Nursing  danaaement. 
Uolume  15,  Number  7,  July  1984,  pp .  35-43. 

Carpenito,  Lynda  J.,  Nursing  Diagnosis  Application  to 
Clinical  Practice.  J.B.  Lippincott  Company,  c.  1983, 
p.  4. 


49 


* 


I 

3 


i 


'i 


/ 

j 


liltViJl  Mm 


no .  Aspe 


14.  Zielstorf f ,  Rita  D.,  ed .  Computers  in  Nursl 
Systems  Corporation,  c  1980,  p.  xi . 

15.  Doenges,  darilynn  E.  and  Moorhouse,  Mary  Frances,  Nurse 
Nurse’s  Pocket  Guide:  Nursing  Diagnoses  Ulith 
I ntervent ions .  F.A.  Davis  Company,  c.  1985. 

16.  Crosley ,  Joan  M.,  et  al . ,  Computerized  Nursing  Care 
Planning  Utilizing  Nursing  Diagnosis:  A  Handbook. 

Oryn  Publication,  Inc.,  c.  1985. 

17.  The  Navu  Medical  Department’s  UJorklood  nanoaement  Suste 
For  Nursing.  May  1985,  p.  8. 

18.  Ryan,  Sheila  A.,  ”An  Expert  System  for  Nursing  Practice 
Clinical  Decision  Support,”  Computers  in  Nursing. 

Uolume  3,  Number  E,  darch/April  1985,  p.  77. 


19 .  The  Navu  fledical  Department’s  Workload  flanaaement  Suste 
For  Nursing,  flay  1985,  p.  10. 


SO.  Monk,  Andrew,  Editor,  Fundamentals  of  Human-Computer 
Interaction.  Academic  Press,  c.  1985. 


APPENDIX  A 


DATA  DICTIONARY 


CLocal  looping  variables  omitted! 


Module : 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comment : 


Intro . Prg 

Flash 

None 

Character 
ChrC 145! 

All  modules 

Flash  Code  specified  variable,  use 
in  conjunction  to  displaying 
screens . 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


Ualid . Prg 

Xusepass 

None 

Character 

String  of  5  characters 
Ualid . Prg 

A  concatenation  of  Xusepasl  through 
XusepasS  Csingle  characters]  to 
farm  the  individual’s  password 
entry.  Xusepass  is  compared  with 
those  in  the  UseinFo.Dbf  to  detBr- 
if  the  entry  received  is  a  valid 
password . 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 

Comments: 


Ualid . Prg 

Curuser 

None 

Characters 

String  of  up  to  23  characters 

All  modules  except  Intro,  Pt_Info  and 

UseinFo 

A  concatenation  of  UFinitial  and  trim 
Ulname.  Is  displayed  an  the  screen 
based  an  password  entered  and  name 
associated  with  that  password  in  the 
UseinFo.Dbf.  Curuser  is  also  entered 
as  the  practitioner  or  nurse  in  the 
Orders. Dbf  or  Ncaredb.Dbf. 


Module: 

Uariable  Name: 
Aliases : 


Ualid . Prg 

Useacc 

None 


Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 

Comments: 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments : 

Module: 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments : 


Module : 

Uariable  Name: 
Aliases: 


Numeric 

0-4 

Master . Prg 

When  a  new  user  is  entered  into  the 
system  an  access  level  is  assign. 
This  access  level  allows  for  privacy 
and  security  in  the  program. 

Master . Prg 

Qmodule 

None 

Character 
D  or  N 

tdard2  and  UJard3.Prg 
Serves  as  a  Flag  when  exiting  the 
U)ard2  or  UardB.Prg  indicating 
which  module  called,  those 
pertaining  ta  the  physician  staff 
or  the  nursing  staff. 

Pt_Infa .Prg 
Xplname 

Xdclname , Plname 
Character 

20  characters  for  patient's  last  name 
All  files  except  Intro,  Ualid,  Master, 
Ward  and  Useinfo.Prg. 

Used  in  the  Pt_Info.Dbf  and  .Prg. 
Called  by  Ward2  and  Uard3.Prg. 

Pt_ Info. Prg 
Xpf name 

Xdcf name , PF  name 
Character 

12  characters  For  patient's  first  name 
See  discription  above  for  Xplname. 

See  discription  above  for  Xplname. 

Pt_Info . Prg 
Xpmname 

Xdcmname , Pmname 
Character 

Up  to  3  character  string. 

Pt_Info  and  Discharg . Prg . 

Represents  thB  patient’s  middlB 
initials . 

Pt_Info . Prg 
Xfmpssan 

Xdcfssn, Fmpssan, Ptfmpssn,  Mptfmpssn 
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and  XptlFmpsss . . . Xpl2Fmpssn 
CWard2/Ward3 . PrgD 

Format  Of  Data: 

Character 

Allowable  Ualue: 

2  digit  numeric  code,  a  then 

social  security  number. 

Files  Variable  Used: 

See  discription  above  For  Xplname. 

Comments : 

See  discription  above  Far  Xplname. 

ThB  unique  identiFier  For  each 
patient.  Variables  with  an  ”Xpt” 
preFix  indicate  they  are  ward, 
room  and  bed  dependent . 

Module : 

Pt_InFo . Prg 

Variable  Name: 

Xpregno 

Aliases: 

Pregno , Ptregno  and  Xptlregno... 
Xptl2regno  CUard2/Uard3 .PrgD 

Format  OF  Data: 

Character 

Allowable  Value: 

Numeric  B  digit  number 

Files  Variable  Used: 

See  discription  above  For  Xplname. 

Comments: 

See  discription  above  For  Xplname. 
Represents  the  hospital  registra¬ 
tion  number.  Variables  with  an  ”X” 
preFix  indicates  they  are  ward,  room 
and  bed  dependent . 

Module: 

Pt_InFa.Prg 

Variable  Name: 

Xpphy 

Aliases: 

Xdcpphy,  Pphy  and  Xdcprac 

Format  OF  Data: 

Character 

Allowable  Value: 

Up  ta  24  characters 

Files  Variable  Used: 

Pt_InFo  and  Discharg.Prg 

Comments : 

Represents  the  patient’s  physician. 

Module: 

Pt_Info . Prg 

Variable  Name: 

Xpward 

Aliases: 

Pward 

Format  OF  Data: 

Character 

Allowable  Value: 

”2E”  or  ”3E” 

Files  Variable  Used: 

See  discription  above  For  Xplname. 

Comments: 

See  discription  above  For  Xplname. 
Represents  a  ward  assignment. 

Module: 

Pt_InFo . Prg 

Variable  Name: 

Xprm 

Aliases : 

Prm 

Format  OF  Data: 

Character 

Allowable  Value: 

”1 ” , "2”  or  ”3” 

Files  Variable  Used: 

See  discription  abovB  For  Xplname. 

Comments : 

See  discription  above  For  Xplname. 
Represents  rooms  on  the  ward . 

Module:  Pt.InFo 

Uariable  Nome:  Xpbed 

Aliases:  Pbed 

Format  OF  Data:  Character 

Allowable  Ualue:  "A"  or  ’’B" 

Files  Uariable  Used:  See  discriptian  above  For  Xplname. 
Comments:  Sbb  discriptian  above  Far  Xplname. 

Represents  beds  in  a  room. 

nodule:  Discharg.Prg 

Uariable  Name:  Xppack 

Aliases:  None 

Format  OF  Data:  Logical 

Allowable  Ualue:  .1.  or  .F. 

Files  Uariable  Used:  Discharg.Prg 

Comments:  Flag  to  indicate  iF  a  patient  had  been 

discharged.  IF  .T.  Pt_InFo.DbF  has 
discharged  patient’s  database 
purged . 

nodule:  Ward.Prg 

Uariable  Name:  Ourpt 

Aliases:  Xptl...Xptl2  CWard2/Ward3 . Prgl 

Format  OF  Data:  Character 

Allowable  Ualue:  XpFname  +  Xplname 

Files  Uariable  Used:  All  modules  except  Intro,  Ualid, 

Pt_Infa,  UseinFo,  naster  and  Uard. 
Comments:  SigniFies  which  patient  From  the 

Pt_InFo.DbF  has  bBen  selected  by  the 
user.  The  variables  with  an  ”X” 
preFix  indicates  they  are  ward,  room 
and  bed  dependent . 

nodule:  Ward.Prg 

UariablB  Name:  OFreq 

Aliases:  XdcFrBq,  NFreq 

Format  OF  Data:  Character 

Allowable  Ualue:  Blank,  options  in  Time.Prg  or  options 

in  IUC.Prg. 

Files  UariablB  Used:  All  order  modules  CTransFer,  Activity, 

IUA,  Lab,  Nonitor,  Phaml,  Pham2,  Xray , 
Xray ,  Diet,  Lung,  Routine,  US  and 
all  Norder*.PrgD 

Comments:  Indicates  Frequency  oF  any  ordered 

action . 

nodule:  Ward.Prg 

Uariable  Name:  Passdata 

Aliases:  None 

Format  OF  Data:  Character 


Allowable  Ualue:  ”Q”  number  space  number 

Files  Uariable  Used:  All  order  modules  Csbb  Qfreq] 

Comments:  Used  to  pass  data  to  the  external 

expert  system.  Indicates  qualifier 
and  value  to  be  used. 

Module:  Uard.Prg 

Uariable  Name:  Ptpoint 

Aliases:  Xpoints 

Format  Of  Data:  Numeric 

Allowable  Ualue:  Positive  integers  >■  0 

Files  Uariable  Used:  All  order  modules  Csee  Qfreq] 

Comments:  Assigns  points  ta  orders  selected  by 

user  to  be  used  in  determining  the 
patient  classification  system. 

Module:  Uard.Prg 

Uariable  Name:  Todayanly 

Aliases:  None 

Format  Of  Data:  Logical 

Allowable  Ualue:  .T.  or  .F. 

Files  Uariable  Used:  All  order  modules  Csee  Qfreq] 

Comments:  Assigns  a  .T.  for  orders  of  one  day 

frequency  for  the  patient 
classification  system. 

Module:  Uard.Prg 

Uariable  Name:  Monpoint 

Aliases:  Xmonpt 

Format  Of  Data:  Numeric 

Allowable  Ualue:  Integers  0  or  B 

Files  Uariable  Used:  All  order  modules  Csee  Qfreq] 

Comments:  Used  to  evaluate  orders  in  the  Monitor 

.Prg  but  included  in  the  Orders. Dbf 

ta  determine  patient  classification. 

Module:  Uard.Prg 

Uariable  Name:  Emopoint 

Aliases:  Xemopt 

Format  Of  Data:  Numeric 

Allowable  Ualue:  Positive  integers  >-  0 

Files  Uariable  Used:  All  order  modules  Csee  Qfreq] 

Comments:  Used  to  evaluate  orders  in  the  Emosup 

.Prg  but  included  in  the  Orders. Dbf 
to  determine  patient  classification. 

Module:  Uard.Prg 

Uariable  Name:  Roupaint 

Aliases:  Xroupt 

Format  OF  Data:  Numeric 


Allowable  Ualue: 
Files  Uariable  Used: 
Comments : 


Module : 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 


Comments: 


Positive  integers  >-  0 
All  order  modules  Csee  OFreq] 

Used  to  evaluate  orders  in  the  Routine 
.Prg  but  included  in  the  Orders. Dbf 
to  determine  patient  classification. 

Ward .Prg 
Ptselect 
None 

Character 

Prm  +  Pbed  +  CXptl  or  XptE  ...  XptlSl 
All  modules  except  Intro,  Ualid, 
Pt.Infa,  Useinfo  and  Master. 
Signifies  which  patient,  the  room  and 
bed  for  screen  headers. 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


Module: 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 


Comments : 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 

Comments : 

Module: 

Uariable  Name: 
Aliases : 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 


Ward . Prg 
Morder 

Order,  Xdcorder,  Nord 
Character 

Character  string  up  to  57 
All  order  modules  Csee  OfreqD 
Patient  orders  requiring  action  on  the 
part  of  the  hospital  staff. 

Doctor .Prg 

Dmenu 

None 

Character 
"l”  or  "  ” 

Doctor,  Dac_Menu  and  all  order 
modules  Cexc.  Norder* . Prg 3 . 

Flag  to  indicate  if  a  return  is  to  the 
Master. Prg  module  or  to  a  doctor 
IbvbI  module. 

Time .Prg 

Timeopt 

None 

Numeric 

1-41 

All  order  modules  Csee  OFreq]  except 
Transfer . Prg 

Used  to  determine  frequency  of  order. 

Time . Prg 

Xtimstime 

None 

Character 

Character  string  of  4 
Time . Prg 


Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments : 


nodule: 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments .- 


Module : 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


nodule: 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments : 


nodule: 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments : 


None 

Character 

Character  string  oF  19 
Emosup  and  Teach. Prg 

Recieves  input  For  Ncaredb.DbF  related 
to  the  teaching  and  emotional 
requirements  oF  the  patient. 

N_Diag .Prg 

Nrslate 

None 

Character 

Character  string  oF  85 
Relate_l. . . Relate_4 . Prg 
Recieves  input  For  Ncaredb.DbF  related 
to  why  the  patient  has  the  nursing 
diagnosis  chosen. 

N_Diag .Prg 

Ngoal 

None 

Character 

Character  string  30 
Goal_l . . .Goal_4 . Prg 

Recieves  input  For  Ncaredb.DbF  related 
to  goal  achieveable  by  the  patient. 

N.Diag.Prg 

Nassess 

None 

Character 

Character  string  oF  87 
Assess.l . . . Assess_4 .Prg 
Recieves  input  For  Ncaredb.DbF 

relating  abjective  observations  and 
subjective  inFormation  to  the  nur¬ 
sing  diagnosis  selected. 

N_Diag .  Prg 

Assath 

None 

Character 

Character  string  oF  87 
Assbss_ 1 . . . Assess_4 . Prg 
Allows  an  assessment  oF  the  patient 
not  currently  provided  on  the 
screen  to  bB  entered . 


Module; 

Uariable  Name: 


N_Diag . Prg 
Reloth 


Comments : 


Provides  an  option  for  a  time  of  day 
that  is  not  provided  on  the  screen. 


Module : 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 


Files  UariablB  Used: 
Comments: 


IUA .Pry 
florderl 
None 

Character 
"Start  IU  of” 

"Alternate  IU  u »/” 

"Follaui  IU  w/” 

"Interrupt  IU  for” 

"Start  2nd  IU  of” 

IUA  and  IUB.Prg 

Initial  portion  of  the  patient  order 
for  IU  therapy. 


Modulet 

Uariable  Name: 
Aliases : 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


IUB.Prg 
Blood 
Nana 
Logical 
.T.  or  .F. 

IUB  and  IUC.Prg 

Flag  ta  indicate  whether  blood  was 
ordered  or  not.  Significant  in  the 
determining  of  patient 
classification  points. 


Module: 

Uariable  Name: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 


Files  Uariable  Used: 
Comments : 


Lung .Prg 

Xliter 

None 

Character 
”0  1-2  1/m” 

”0  3-4  1/m” 

”0  5-6  1/m" 

"0  7-8  1/m” 

”0  3-10  1/m” 

Lung .Prg 

Xliter  is  concatenated  with  the  screen 
selection  to  indicate  oxygen  flow 
rate  for  the  patient. 


Module: 

Uariable  Name: 
Aliases: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


Discont . Prg 
Xdcdate 
□date 
Date 

Date  of  the  medical  order 
Discont . Prg 

Allows  user  to  review  date  of  an  order 
to  determine  if  medical  order  should 
be  discontinued. 
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Module:  Discont.Prg 

Variable  Name:  Xardpack 

Aliases:  None 

Format  Qf  Data:  Logical 

Allowable  Ualue:  .1.  or  .F. 

Files  Uariable  Used:  Discont.Prg 

Comments:  Flag  to  indicate  if  medical  orders  are 

to  be  discontinued.  If  .T.,  deleted 
orders  are  purged  from  the 
Orders . Dbf . 

Module:  Nurse. Prg 

Uariable  Name:  Nmenu 

Aliases:  None 

Format  Of  Data:  Character 

Allowable  Ualue:  ”1”  or  ”  ” 

Files  Uariable  Used:  Nurse,  Nursel,  and  N_Diag.Prg 
Comments:  Flag  to  indicate  if  a  return  is  to  the 

Master. Prg  module  or  to  Nurse. Prg 
module. 

Module:  Nurse. Prg 

Uariable  Name:  Xlevel 

Aliases:  None 

Format  Of  Data:  Character 

Allowable  Ualue:  ’’Category  I” 

’’Category  II” 

’’Category  III” 

’’Category  IU” 

’’Category  U” 

’’Category  UI” 

Files  Uariable  Used:  Nurse . Prg 

Comments:  Indicates  patient  classification 

level . 

Module:  N_Diag.Prg 

Uariable  Name:  Nursdiag 

Aliases:  None 

Format  Of  Data:  Character 

Allowable  Ualue:  ’’Comfort,  Alteration  In:  Pain” 

’’Communication,  Impaired:  UBrbal" 
’’Impaired  Physical  Mobility” 

"Self-Care  Deficit” 

Files  Uariable  Used:  N_Diag.Prg 

Comments:  Nursdiag  is  of  the  four  values 

indicated,  and  directs  which  branch 
the  program  will  follow. 

Module:  N_Diag 

Uariable  Name:  Emoteach 
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.  "r- 
*■» 


Aliases : 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


None 

Character 

Character  string  of  25 
Relate.l . . . Relate_4 . Prg 
Allows  a  related  factor  not  currently 
provided  an  the  screen  to  be 
entered . 


Module : 

Uariab  3  Name: 
Aliases . 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments : 


N_Oiag . Prg 

Goaath 

None 

Character 

Character  string  30 
Goal_l . . .Goal_4.Prg 

Allows  a  patient's  goal  not  currently 
provided  on  the  screen  to  be 
entered . 


Module: 

UariablB  Nome: 
Aliases: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 
Comments: 


N_Diag .Prg 

□rdath 

None 

Character 

Character  string  27 
Norder*.Prg 

Allows  for  a  nursing  order  not  cur¬ 
rently  provided  on  the  screen  to  be 
entered . 


Module : 

Uariable  Name: 

Format  OF  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 


Useinfo 
Xuf initial 
Character 

Any  first  initial  of  user 

All  modules  Cexcept  Intro  and  UalidD  as  a 

concatenation  with  Xulname. 


Module: 

Uariable  Name: 
Aliases : 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 

Comment : 


Useinfo. Prg 
Xulname 
Xdlulname 
Character 

Character  string  of  length  20 
All  modules  Cexcept  Intro  and  Ualid] 
as  a  concatenation  with  Xuf initial. 
Character  string  representing  the 

user’s  last  name.  Used  as  a  cancat- 
tenation  with  Xuf initial  to  form 
Curuser . 


Module : 

Uariable  Name: 
Format  OF  Data: 


Useinfo 

Xcodeword 

Character 


Allowable  Ualue: 


Files  Uariable  Used: 
Module: 

Uariable  Name: 

Format  Of  Data: 
Allowable  Ualue: 
Files  Uariable  Used: 


Any  5  characters  representing  a  user’s 

password 

Ualid . Prg 

Useinfo 

Xaccess 

Numeric 

0,  1,  2,  3,  or  4 
naster . Prg 


Legend  far  Structure  Chart 


*  —  Box  labelled  1 

Bax  Description:  Da  Introduction/Ualidate  User 

m  —  Bax  labelled  2 

Bax  Description:  Choose  Path 

*  —  Bax  labelled  3 

Box  Description:  Do  Admission  Department 

*  —  Bax  labelled  3.1 

Box  Description:  Admit  Patient 

*  —  Bax  labelled  3.2 

Box  Description:  Discharge  Patient 

*  —  Box  labelled  4/5 

Box  Description:  Select  Uard 

*  —  Box  labelled  4. 1/5.1 

Box  Description:  Select  Patient 

*  —  Box  labelled  4.1.1 

Box  Description:  Select  Doctor  Option 

*  —  Bax  labelled  4. 1.1.1 

Box  Description:  Select  Medical  Orders 

*  —  Bax  labelled  4. 1.1. 2 

Box  Description:  Discontinue  Order 

*  —  Bax  labelled  4. 1.1. 3 

Box  Description:  Admit/Transfer/Discharge  Patient 

*  —  Box  labelled  4. 1.1. 4 

Bax  Description:  Print/Rsvieui  Orders 

*  —  Box  labelled  5.1.1 

Box  Description:  Select  Nursing  Option 

*  —  Bax  labelled  5. 1.1.1 

Box  Description:  Select  Nursing  Care  Plan 

*  —  Box  labelled  5. 1.1. 2 

Box  Description:  Review/Print  Nursing  Care  Plan 


*  —  Box  labelled  5. 1.1. 3 

Box  Description:  Revieui/Print  Patient  Care  Requirements 

*  —  Box  labelled  5. 1.1. 4 

Box  Description:  Determine  Patient  Classification  Level 

*  —  Box  labelled  B 

Box  Description:  Do  Data  Processing  Department 

*  —  Box  labelled  B.l 

Box  Description:  Add  New  User 

*  —  Box  labelled  6.2 

Box  Description:  Delete  User 


APPENDIX  C 


USER’S  MANUAL 


This  software  product  is  a  prototype  model  far  the  Navy 
Nurse  Corps.  The  user’s  manual,  as  well  as  the  software 
product,  presupposes  a  working  knowledge  of  medicine  and 
the  normal  functioning  of  a  hospital.  The  user’s  manual  and 
the  software  product  require  a  working  knowledge  of  the 
nursing  process  using  the  nursing  diagnosis  and  the  patient 
classification  system. 

This  manual  contains  four  subdivisions:  the  admission’s 
department  section,  the  physician  section,  the  nursing 
section  and  the  system’s  administration  section.  The 
admission’s  department  section  allows  patients  to  be 
admitted  or  discharged.  Admission  of  a  patient  allows 
the  selection  of  doctor’s  and  nursing  orders .  Admission  of 
a  patient  also  initiates  the  determination  of  the  patient 
classification.  The  system  administration  section  allows 
users  access  to  all  or  only  one  of  the  program  sections. 


I .  Beginning  the  Program 


To  begin  the  program  insert  disk  A:1  into  drive  A 
Cnormally  the  left  sided  drive,  or  the  top  drivel  of  your 
IBM,  or  compatible,  personal  computer.  The  computer  should 
have  640K  of  internal  memory.  Next  insert  disk  B:1  into 
drive  B.  Turn  on  the  power  for  the  monitor,  disk  drives 
Cthe  computer!,  and  printer  Cfor  written  reports! .  The 
first  prompt  is  far  the  date.  The  date  format  of  4-1-86  is 
acceptable.  The  computer  also  accepts  a  date  format  of 
4-1-1986.  Fallow  this  with  <enter> .  The  next  prompt  is 
for  time.  The  format  of  14:45  is  the  least  number  of 
keystrokes,  however  the  computer  accepts  seconds  as  well 
Cie.  14:45:30!  <enter>.  An  A>  prompt  then  appears.  To 
begin  the  program,  type  b: proto  [capital,  mixed  or  small 
letters!  <enter> . 

A  manufacturer’s  introductory  screen  appears  with  a 
prompt  of:  ’’Insert  System  Disk  2  and  press  ENTER  or  type 
CTL-C  to  abort”.  Remove  disk  A:1  and  insert  disk  A: 2  into 
drive  A  and  press  <enter> .  Another  manufacturer’s 
introductory  screen  temporarily  flashs  on  the  monitor. 

A  screen  with  a  Nurse  Corps  oakleaf  and  background 
information,  Figure  1,  replaces  this  screen. 


A  PROTOTYPE 


PROJECT 

FOR 

THE 

NAUY  NURSE  CORPS 


BY 

6 ARY  R .  HARHEYER 
LCOR  NC  USN 

nARCH  19BS 

NAUAL  POSTGRADUATE  SCHOOL 
nONTEREY,  CALIFORNIA 
RELEASE  1 


PRESS  ANY  KEY  TO  BEGIN 


Figure  1 


Program  Passwords 


To  negin  the  program  press  any  key  to  move  to  Figure  lo 
which  reauires  the  mout  of  a  five  letter  password.  Sample 
oosswords  for  this  program  are:  level  0  —  mouse,  level  1 
--  iyans,  level  2  —  fiyup,  level  3  —  littl,  and  level  4 
--  getgo .  The  password  allows  access  further  into  the 
program,  and  level  indicates  which  area  a  user  may  enter. 
Regardless  af  password  used  [provided  it  is  an  acceptable 
password,  see  System’s  Administration  section!  the  next 
screen  is  Figure  2. 
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iMwmnnn'j  iv  n  j  iiioohhh 


••  Prototype  floater 


Current  user . 


Screen  "•  Dote 

•  Select  tne  Deaired  Qotlon 

11  Admission  s  Deportment 

23  Doctor's  noster 

33  Nursing  naster 
43  System  Administration 
03  Sign-Off 

Select  one  numper  CO-43  > 


T  lme 


Figure  2 

This  screen,  the  Prototype  Master  Screen  provides  a 
. .  branching  point  to  the  four  major  areas.  Depending  uDon 

the  password  used  and  option  chosen,  the  program  moves  to 
V#  Figure  2,  1 ,  5  or  5 .  Sign-Gff  is  an  option  given  on  most 

screens  to  return,  to  Figure  1. 


Admission's  Department  Personnel 


Access  level  0  or  1  will  allow 
Admit/Discharge  screen  CFigure  3D. 


access  to  the 


T)  It 


SELECT  A0f1  IT  /  DISCHARGE  OPTION  ••• 


Currant  user: 


13  Admit  A  Patient. 


23  Discharge  A  Patient 


03  Sign-Off 


Select  one  numoer  CO-23  — «>  • 


Figure  3 

A  patient  can  be  admitted  or  discharged,  depending  on 
he  option  selected.  Selecting  option  1  moves  the  user  to 
igure  3.1.  This  information  creates  a  patient  database 
file. 


The  Patient  Admission  Form 


The  Patient  Admission  Form  CFigure  3.13  consists  of  17 
input  areas. 


[•R1 


Pataant  Admission  Form 


Lose  Noma: 

Registration  no-. 

First  Noma: 

(radical  Diagnosis 

flld  Initial: 

Physician: 

Rote/Rank : 

Prognosis: 

FHP-SSN: 

A1 iargias ; 

Birthdate:  /  / 

Nursing  ward: 

i 

OOS:  I 

Room  Numoer : 

:  Vi 


Figure  3.1 

After  typing  each  category,  press  <enter>  to  move  to  the 
next  category.  Tne  amount  of  information  and  thB 
acceptable  inputs  are  as  fallows. 


Last  Name : 


First  Name: 


I  m  t  lal 


Rank/Rate: 


FDP-SSN: 


Allows  up  tc  20  letters  in  tne  pctiBnt’s  last 
name  and  automatically  capitalizes  the  first 
letter . 

:  Allows  uo  to  12  letters  in  the  patient’s  first 

name  and  automatically  capitalizes  the  first 
letter . 

1:  Allows  up  to  3  letters  in  the  patient’s  middle 

name  to  accomodate  for  No  Diddle  Name  CNDND . 
Capitalizes  all  letters  entered. 

Accepts  up  to  11  letters  and  capitalizes  all 
letters  entered.  Typical  formats  would  include 
DS3/N/AD,  CQL/AF/RET  or  CIUHUD. 

Family  Dember  Prefix  CFDPD  Code  includes  the 
sponsor's  Social  Security  Number  CSSN3 .  Ualid  FDP 
code  numbers  and  relationships  are.- 


02 

03,04,  etc 
20 


Sponsor’s  oldest  child  Cincludes 
steochi IdrenD 

Sponsor’s  next  oldest  child 
Sponsor’s  third  oldest,  etc. 

Sponsor  [active  duty,  reserve  and 
retired  uniformed  services  personnel 
Army,  Navy,  Air  Force,  Darine  Corps, 
Coast  Guard,  Public  Health  Service 


and  National  Oceanic  and  Atmospheric 
Administration! 

30  Sponsor's  spouse 

40  Sponsor’s  dependent  mother 

45  Sponsor's  dependent  father 

50  Sponsor's  dependent  mother-in-laui 

55  Sponsor’s  dependent  father-in-lau 

60,61,  etc.  Other  authorized  sponsor’s  dependents 
00  All  other  authorized  personnel 

Cforeign  nationals,  including  foreign 
military,  civilian  humanitarians, 
etc .  3 

Birthdate:  Use  the  format  0B/25/50. 

Age:  Allows  up  to  3  letters  or  numbers,  nixing  numbers  and 

letters  is  possible  to  accommodate  for  lin  til  months 
old!  or  150  C15  days  old!.  Age  denotes  years  unless 
n  or  D  are  filling  the  third  input  space. 

Sex:  Allows  one  letter  input.  Ualid  letters  are: 

n  -  nale 
F  -  Female 
U  ■  Unknown 

Admit  Date:  Use  the  format  1B/13/B5. 

Registration  No:  The  local  hospital  sequential  number  of 

in-patiBnts  admitted  during  a  specified 
period  of  time. 

nedical  Diagnosis:  Diagnosis  listed  by  the  admitting 

physician  and  listed  on  the  admission 
authorization  form.  Enter  up  to  24 
letters . 

Physician:  Patient’s  assigned  physician,  not 

necessarily  the  admitting  practitioner. 

Enter  up  to  24  letters . 

Prognosis:  Allows  entry  of  up  to  3  letters.  Allow¬ 

able  prognosis  codes  and  descriptions  are: 

E  Excellent 

F  Fair 

G  Good 

U  Unknown 

GRD  Guarded 

P  Poor 

Allergies:  Patient’s  allergies  as  stated  in  the 

health  record,  or  by  the  patient.  Enter  up  to  24 
letters . 

Nursing  Ward:  Two  wards  are  possible:  2E  Ca  surgical  ward! 
oi  3E  Ca  medical  ward!. 

Room  Number:  Room  number  is  tentatively  assigned  by  the 

admission  department,  pending  confirmation  by 
the  ward  personnel.  Room  number  options  are  1, 
2 ,  or  3 . 


Bed:  Actual  bed  assignment  combines  a  room  number  and  a  bed 

letter.  Bed  letter  is  tenatively  assigned  by  the 
admission  department,  pending  confirmation  by  the  ward 
personnel.  Bed  letter  options  vary  between  A  and  B. 
□nee  the  patient  file  is  complete,  the  program  returns  to 
Figure  3  for  another  selection. 


Discharging  a  Patient 


Selection  E  CFigure  3]  moves  the  user  to  Figure  3.3 
CDischarge  A  Patient  Screen!.  A  patient  is  uniquely 
identified  by  listing  of  FMP-SSN.  The  screen  displays  one 
patient’s  FMP-SSN,  name  and  practitioner  at  a  time  so  the 
user  can  decide  which  patient  to  discharge.  The  user  can 
discharge  mare  than  one  patient  before  returning  to  the 
Admit/Discharge  Screen  CFigure  3!. 


III.  Physician  Personnel 


Figure  E  CPrototype  Master  Screen!  has  two  valid  choices 
far  the  physician,  0  CSign-Offl  and  E  [Doctor's  Master!. 
Option  0  returns  the  physician  to  the  Introductory  Screen 
CFigure  I!.  Thi3  selection  implies  intent  to  leave  the 
computer  session. 


Selecting  a  Patient 


Selection  E  CDoctar’s  Master!  advances  the  physician  to 
Figure  H  CNurse’s  Station  Selection!.  The  physician  is 
able  to  choose  patient  ward  or  return  to  the  previous  screen 
CFigure  El . 
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05  SiUn'Cff 
Current  user:  j 


Figure  4.1a 

Selection  1  [Figure  43  fallows  with  Figure  4.1a  [Patient 
Selection  for  Ward  2E3.  Patients  assigned  to  Ward  2E  by 
the  admissions  department  appear  m  their  room  and  bed 
assignments.  Choosing  any  one  of  the  six  patients  advances 
the  user  to  Figure  4.1.1,  the  Doctor’s  Piaster  Screen. 
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[•Kj 


Sicn-Cff 


13  Oraar  Entry 

Z 3  Admit  /  Transfer  /  Diacnaroe  Potiont 
33  ftaviau  Radical  Orders 
•13  Print  nadical  Oraara 
53  Discontinue  An  Order 

63  noacer  Screer 


Current  user :  j 

i 

i 

1 

Seise:  ona  rxjmDer  CO-6  3  — 

>  • 

F igure  4.1.1 

Ward,  roam,  bed,  patient  and  registration  number  appears  on 
tne  second  line  of  each  of  the  screens  to  assure  proper 
patient  identification  is  present.  The  identical  sequence 
fallows  for  selection  2  C Patient  Selection  for  Uiard 
3E] .  Master  Screen  is  an  option  on  most  screens  and 
differs  slightly  from  the  Sign-Off  option.  Sign-Off  is  the 
appropriate  selection  if  the  computer  session  is  aver. 
Master  Screen  allows  the  user  to  select  a  different  patient 
to  enter  orders  on  without  requiring  the  physician  to  redo 
the  user  identification  process. 


Doctor  Selection  Categories 


Figure  4.1.1  CDoctor’s  Master  Screen]  is  a  branching 
screen.  Selection  1  advances  the  user  to  Figure  4. 1.1.1 
COactor's  Order  Menu!.  This  option  allows  the  physician  ta 
enter  patient  orders  associated  with  medical  treatment. 
Selection  2  moves  the  user  to  Figure  4. 1.1. 2  [Admit/ 

Transf er/Discharge  Screen] .  These  orders  impact  the 
admission's  department  as  well  as  the  patient  care  areas. 
The  admissions  department  must  enter  the  patient  into  the 
computer  system  prior  to  their  selection  by  the  physician 
for  order  entry.  The  selection  of  ADMIT  officially  enters 
the  patient  admission  status  in  the  doctor’s  orders. 


W 


Patient  Orders  For:  nary  niser 

Press  —  Ctrl  and  S  —  Keys  to  Pause  The  Scrolling  If  Necessary 
Page  No .  1 

01/12/86 


Date  Time  Order  Frequency  Practitioner 


01/11/86 

14:13:47 

Ud  in  Chair 

u/  Assist 

TID 

N. 

Lyon 

no 

01/11/86 

14: 14:23 

DiaBetic  Diet 

N. 

Lyon 

no 

01/11/86 

14: 15:41 

Start  IU  of 

.45  NaCl 

Infuse  ( 

3  BHr 

N. 

Lyon 

nD 

01/12/86 

10.17: 14 

Cloride 

Daily 

a 

0600 

N. 

Lyon 

HD 

01/12/86 

10: 17:40 

Sodium 

N. 

Lyon 

HD 

01/12/86 

10: 18:00 

Amy  lose 

N  . 

Lyon 

no 

01/12/86 

10: 18:26 

Potassium 

Daily 

b 

0600 

N  . 

Lyon 

nD 

01/12/86 

10: 10:56 

C02 

Daily 

3 

0600 

N. 

Lyon 

HD 

01 / 12/BS 

10: 19:26 

CBC 

□ally 

B 

0600 

N. 

Lyon 

HD 

01/12/86 

10: 19:54 

Platlots 

Daily 

S 

0600 

N. 

Lyon 

nD 

01/12/86 

10:20: 18 

Glucosa 

Daily 

B 

0600 

N. 

Lyon 

HD 

Figure  4.1  .1 .3 

Selection  4  crovides  the  same  medical  order  output  on  the 
printer.  Selection  5  [Discontinue  An  Order]  advances  the 
chysician  tc  Figure  4 . 1 . 1 . 4 .  The  screen  displays  each 
medical  crder  on  the  selected  patient  with  the  cation  tc 
discontinue  l.  vg  obsolete  orders. 


Selecting  Doctor’s  Orders 


The  Doctor’s  Order  Menu  CFigure  4. 1.1.1]  provides  a  menu 
to  select  a  medical  treatment  category.  A  rudimentary 
selection  list  of  medical  orders  follows  each  of 
the  ten  major  headings.  Selection  1  [Figure  4. 1.1.1]  moves 
the  program  to  Figure  4.1.1.1a. 


V 


word  Room  Bad  Pedant 


SELECT  ACTIU5TV  LEUEI 


RmDulato  ad  110 


Amoulaca  m.'  Assmanca 


Strict  Bedrest 


Baarest  u/  BRP 


Baasiaa  Commode 


003  to  Stracner  u/  Aaaiat 


7)  uongia  Lags 


0 naao  on  Bock 


33  nay  Snotar 


0)  Turn  Patient 


1}  Turning  Frame 

S'.  Uo  m  Chair  m'  Assist 


CJ  Sign-Off 


13:  Oerter's  truer  Carae" 


Is:  no ate"  Err 


Currant  user 


Select  one  numeer  COO- Is)  — » 


F igure  4.1.1.1a 

Twelve  selection  criteria  Fellow.  When  entering  a 
number  less  than  10,  enter  either  03  or  3  <enter>  to 
advance  the  crogram .  Same  selections  reauest  c  time  or 


recuency 


These  selections  are  2.  6,  7.  10.  11,  and  12. 


whicr  move  the  crogram  tc  Figure  4.1.1.1b  C Select 
Time/ F recuency  Option!.  A  list  of  3S  actions  follow. 
Selection  40  is  a  brief  on-line  held  facility  [Figure 
4.1.1.1c].  A  selection  of  41  returns  the  program  tc  the 
previous  screen  with  no  frequency  indicated  for  that  order 
Options  5,  B.  S ,  24,  23,  33,  35,  37  and  33  are  one  time 
selections.  All  other  options  are  ongoing  until 
discontinued . 


ward  Room  Bad 


Patient 


Reg 


Date 


Tn 


•••  SELECT  TinE/ FREQUENCY  OPTION  *•* 


1 ) 

PRN 

•  Dail>j  8 

!  20) 

2200 

30) 

0 

Shift 

2) 

I  1 -2  Hr 

PRN 

12) 

0202 

;  2i ) 

2400 

21) 

O 

ID 

3) 

3  2-3  Mr 

PRN 

11  J 

0400 

j 

32) 

3 

6  Hr 

4 J 

3  3-1  Mr 

PRN 

12) 

0600 

I  22) 

BID 

33) 

x 

4 

13) 

0800 

!  23) 

Q  12  Mr 

34) 

a 

4  Mr 

S) 

On  Can 

19) 

1000 

!  2**) 

x  2 

3S) 

X 

6 

6) 

CD 

IS) 

1200 

!  2S) 

TID 

7) 

MS 

16) 

1400 

25) 

PC 

36) 

a 

2  Hr 

3) 

If  * 

1600 

1  27) 

PC 

37) 

X 

12 

9) 

lodaj  9 

18) 

1800 

;  29) 

0  8  Hr 

38) 

3 

1  Hr 

19) 

2000 

29) 

x  3 

39) 

X 

24 

*10]  halo  'll)  Raturn  to  Callms  Screen 


Lurrir.’.  user  j 

Select  one  nuiiDer  C 01  “'ll)  •»«■>  •• 


F igure  4.1.1.1b 

Selection  9  from  the  Doctor's  Drder  Menu  CFigure 
4. 1.1.  ID  Gravities  possible  diet  options  for  the  selected 
patient .  Options  17  and  18  move  the  program  to  Figure 
4.1.1.1b  CSelect  Time/Frequency  Option].  Selection  1? 
reauires  the  number  cF  bags  per  24  hours  for  continuous 
tube  feedings.  Selection  19  recuires  a  frequency  for  nciu: 
tube  feedings. 

Selection  3  from  the  Doctor's  Drder  Menu  CFigure 
4.1.1.13  provides  possible  intravenous/blaod  options.  The 
screen  design  varies  From  other  medical  treatment  order 
screens,  to  accommodate  far  the  unique  characteristics  of 
this  order  line.  Select  ID  Order  CFigure  4.1.1.1e3  is  the 
First  screen  of  a  series  of  three.  Select  ID  Order  has  up 
to  10  selections.  Selections  6  through  B  are  one  time 
orders  which  then  returns  to  the  program  For  another 
selection.  Selection  1  through  5  moves  the  program  to 
Select  ID  Solution  CFigurB  4.1.1.1F3.  This  requires  a 
selection  from  options  1  through  0.  The  program  moves  to 
Select  Infusion  Rate  CFigure  4.1.1.1g3  For  the  user  to 
select  the  desired  fluid  infusion  rate.  Following  the 
selection  of  infusion  rate,  the  program  returns  to  Select 
ID  Order  CFigure  4.1.1.1e3. 

Selection  4  from  the  Doctor's  Order  Menu  CFigure 
4.1.1.13  displays  laboratory  test  options.  For  each 
selection  on  the  Select  Laboratory  Test  CFigure  4.1.1.1hD, 
the  program  moves  to  the  Select  Time/Frequency  Option 


CFigure  4.1.1.1b].  Selections  are  for  additional 
information  regarding  the  order. 

Selection  5  from  the  Doctor’s  Order  Menu  CFigure 

4.1.1.13  provides  possible  monitoring  options.  For  some 
selections  on  the  Select  Monitoring  Requirements  screen 
CFigure  4.1.1.113,  the  program  moves  to  the  Select 
Time/Frequency  Option  CFigure  4.1.1.1b3  for  addition 
information.  The  selections  requiring  time  or  frequency 
information  include  3,  5,  B,  7,  B,  9,  11,  12,  12,  and  15. 
Other  selections  are  continuous. 


Selection  6  from  the  Doctor’s  Order  Menu  CFigure 

4.1.1.13  provides  pharmacy  options.  For  all  selections  on 
the  Select  Desired  Medication  /  Dosage  screens  CFigure 
4.1.1.1J  and  Figure  4.1.1.1k],  the  program  moves  to  thB 
Select  Time/Frequency  Option  CFigure  4.1.1.1b]  for 
frequency  of  dosage.  Each  screen  contains  divisions  of 
major  drug  categories,  of  individual  drugs,  and  dosage.  A 
help  facility  follows  CFigure  4.1.1.113  clarifing  route 
abbreviations  used  on  the  screen. 

Selection  7  from  the  Doctor's  Order  Menu  CFigure 

4.1.1.13  provides  radiology  options.  For  all  selections  on 
the  Select  Xray  screen  CFigure  4. 1.1.1ml,  the  program  moves 

to  the  Select  Time/Frequency  Option  CFigure  4.1.1.1b3  for 
additional  scheduling  information. 

Selection  B  from  the  Doctor’s  Order  Menu  CFigure 

4.1.1.13  provides  possible  respiratory  therapy  options. 

For  each  selection  on  the  Select  Respiratory  Therapy 
Options  screen  CFigure  4.1.1.1n3,  Bxcept  7  CUentilator  is 
continuous],  the  program  moves  to  the  Select  Time/Frequency 
Option  CFigure  4.1.1.1b]  .  After  selecting  a  route  Caption 
9  through  133,  a  flow  rate  Cletter  A-E3  selection  follows. 

Selection  9  from  the  Doctor’s  Order  Menu  CFigure 

4.1.1.13  provides  possible  vital  signs  options.  For  some 
selections  on  the  Select  Yital  Sign  Option  screen  CFigure 
4.1.1.1o3,  the  program  moves  to  the  Select  Time/Frequency 
Option  CFigure  4. 1.1.1b].  Time/Frequency  Option  screen 
provides  selections  for  additional  information  with  options 

1  and  5  through  11.  Departmental  policy  defines  selections 

2  through  4 . 

Selection  10  from  the  Doctor’s  Order  Menu  CFigure 

4.1.1.13  provides  ward  routine  selection.  For  many 
selections  on  the  Select  Ward  Routine  screen  CFigure 
4.1.1.1p],  the  program  moves  to  the  Select  Time/Frequency 


Option  CFigure  4.1.1.1b!  For  added  information.  Selections 
advancing  the  program  to  the  Time/Frequency  screen  are:  3, 
4,  6,  8,  16,  20-23,  2B  and  29.  Selections  regarded  as  one 
time  only  orders  are:  2,  5,  7,  12-14  and  24-27.  All  other 
selections  arB  ongoing  until  discontinued  Cselection  1, 
9-11,  15  and  17-191.  In  the  context  of  this  software 
project,  option  4  CComplex  Drsg  Change!  is  a  dressing 
change  requiring  30  minutes  or  more  to  complete.  A 
dressing  change  requiring  less  time  is  a  simple  dressing 
change  Coption  203. 


10.  Nursing  Personnel 


Figure  2  [Prototype  Master  Screen!  has  two  valid  choices 
for  nurses,  0  CSign-Off!  and  3  CNursing  Master!.  Option  0 
returns  thB  nurse  to  ths  introductory  screen  CFigure  13. 
Option  0  implies  intent  to  leavB  the  computer  session. 


Patient  Selection 


Selection  3  CNursing  Master!  advances  the  nurse  to 
Figure  5  CNurse’s  Station  Selection!.  The  nurse  selects 
the  desired  ward  or  returns  to  the  previous  screen  CFigure 
23  . 

Selection  1  CFigure  5!  follows  with  Figure  5.1a  CPatient 
Selection  For  Ward  2E3 .  Patients  assigned  to  Ward  2E  by 
the  admission’s  department  appear  in  their  room  and  bed 
assignments . 


••  Nurse  *  a  Station  Selection  •• 


Select  Nursing  unit  to  Oisoicj  Patients 


1  3 

2E 

Surgical  ward 

23 

3E 

nodical  ward 

05  Sign-Off 

33  ttaster  Scrisn 

Current  user 


Select  one  numoar  CO-3) 


Figure  5 


Selection 


ucrd  Surgicc 


Select  Patient  •• 


0)  Sign-Crf 


Current  user 


7)  Hosts 


Seisct  one  number  CO-7) 


Figure  S.la 

Choosing  any  one  of  the  six  patients  advances  the  user  to 
Figure  5.1.1,  the  Nursing  naster  Screen.  Ward,  room,  bed 
patient  and  registration  number  apDeor  on  the  second  line 
of  each  of  the  screens  to  assure  proaer  patient 
identification.  The  identical  sequence  follows  for 
selection  2,  Patient  Selection  for  Ward  3E  [Figure  5.1bD. 


Master  Screen  is  an  option  on  some  screens  and  differs 
slightly  from  the  Sign-Qff  option.  Sign-Off  is  the 
appropriate  selection  if  the  computer  session  is  over, 
Master  Screen  allows  the  user  to  select  a  different  patient 
to  enter  a  care  plan  on  without  requiring  the  nurse  to  redo 
the  user  identif ication  process. 


Nursing's  Category  Options 

Figure  5.1.1  CNursing  Master  Screen]  is  a  branching 
screen . 


ward  Room  Bod  Patient 


Re;  » 


Date  7  lire 


•••  NURS1N3  HftSTER  SCREEN 


17  Enter/ 1 nactivato  Nursing  Caro  Plan 
27  kavisui  Nursing  Care  Plan 

2'.  Pr;n;  sursm;  Care  Pic'¬ 
ll  Externc.  Patient  E.asslf icttia" 

C7  Sl~"-Cfc 


S7  Review  Patient  Care  Requirements 

E7  Print  Patient  Care  Requirements 

'.-ternc..  Patient  Class  1  f  : cat io- 


5 .  raster  E;ree' 


Current  user 

Select  one  numoer  CO-87  — — >  * 


F igure  5.1.1 

Selection  1  advances  the  program  to  Figure  5. 1.1.1  CSelect 
The  Desired  Nursing  Care  Plan  Function].  This  option 
allows  the  nurse  to  enter  or  inactivate  a  patient’s  care 
plan . 

Selection  2  and  3,  on  the  Nursing  Master  Screen  vary 
only  in  the  location  of  their  output.  Selection  2  displays 
the  nursing  care  plan  on  the  screen.  Figure  5. 1.1. 2,  is  □ 
screen  output  for  Review  Nursing  Care  Plan.  Selection  3 
provides  the  same  nursing  care  plan  information  on  the 
printer.  Selection  4  CExternal  Patient  Classification] 
requires  the  nurse  to  leave  this  portion  of  the  prototype 
project  Csee  Expert  System  Supplement] . 
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Selection  5,  of  the  Nursing  Master  Screen  [Figure 
5.1.13,  Review  Patient  Care  Requirements,  displays  all 
active  orders  on  the  patient.  Patient  Care  Requirements 
are  the  total  active  medical  and  nursing  care  orders  for  a 
particular  patient.  Figure  5. 1.1. 3  is  a  screen  output  for 
Review  Patient  Care  Requirements. 


Press  —  Ctrl  and  S  —  Keys  To  Pause  The  Scrolling  If  Necessary 
Page  No .  1 

01/12/86 


□ate 

Time 

Order 

frequency 

Practitioner 

01/11/86 

10:06:20 

Teach  Pit  Cooing  Strategies 

S. 

Hormeyer  RN 

01/11/86 

12:08:07 

Assist  Bed  Ta  uinuelchair 

TID 

N. 

Lyons  HD 

01/11/86 

13: 10: 15 

Self/nimmum  Care 

G. 

Marmeyer  RN 

01/11/86 

13: 10:53 

Keep  Commode  3  Bedside 

TID 

G. 

Harmeyer  RN 

01/11/86 

l1!:  13:47 

up  in  Chair  w/  Assist 

TID 

N  . 

Lyons  HO 

01/11/86 

14:  1*1:23 

Oiaoetic  Diet 

N. 

Lyons  HD 

01/12/96 

10:17: 1“ 

Clonde 

Dally 

8 

0600 

T 

Bui  HD 

01/12/85 

10: 17:40 

Sodium  * 

T. 

Bui  HD 

01/12/86 

10: 18:00 

Amylase 

T  . 

Bui  no 

Cl/12/86 

10: 18:25 

Potassium 

Daily 

8 

0600 

T  . 

Bui  HD 

01/12/85 

10: 13:56 

C02 

Dai  ly 

8 

0600 

*r 
l  . 

Bui  no 

Cl/12/86 

10: 19:25 

CBC 

Daily 

8 

0600 

▼ 

*  • 

Bui  HD 

01/12/86 

10: 19:54 

Platlets 

Daily 

8 

0600 

T. 

Bui  no 

01/12/85 

10 : 20 ; 19 

Glucose 

Lcil* 

r» 

0600 

T  . 

Bui  no 

01/12/85 

1C.-22.C2 

I  rt-OKe  S  Cutout 

’  *h 

T 

A  . 

Bui  nc 

ti  i:  i  *'  u. 
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ward  Room  Bad 


Patient 


Reg  * 


Dace  Time 


•••  SELECT  NURSING  DIAGNOSIS 


13  Comfort,  Alteration  In.-  Pain 
S3  Communication,  Impaired;  Ueroal 
33  Impaired  Physical  nobility 
43  Self-Care  Deficit 


03  Sign-Off 


53  Nurse  s  Master  Screen 


6)  noster  3creen 


Current  user. 


Select  one  number  CO-63  ■*■•>  ■ 


F lgure  5.1.1.1a 


Of  the  52  nursing  diagnoses  approved  through  the  5th  and 
th  National  Conferences  of  the  North  American  Nursing 
i  car, as  is  association  c  representative  four  were  chosen. 


Patient  Assessment 


Folloiuing  the  selection  of  one  of  the  diagnoses,  the  nurse 
advances  to  one  of  the  four  assessment  screens  C Figure 
5.1.1.1b,  5.1.1.1k,  5 . 1  . 1  .  lq ,  5.1.1.1yD. 


ward  Room  Bad 


Patient 


Reg  * 


□ace 


••  SELECT  NURSING  ASSESSMENTS  FDR  A  PATIENT  WITH  •• 
•*  NURSING  DIAGNOSIS  OF  COMFORT  ALTERATION  IN:  PAIN  •• 


II  Altered  Time 

Perception 

23  Alteration  Muscle  Tone 
33  Autonomic  Resoonse 
*13  Distraction  Behavior 
53  Facial  Mask 
63  Other  Assessment.  C - • • 


73 

Guarding  Benavior 

153 

Self-Focusing 

83 

Impaired  Thought 

133 

Talkative 

Process 

1*1 3 

verbal  Complaint 

33 

Narrowing  Focus 

153 

vocal  Complaints 

103 

Pacing 

Cnoons,  Crying! 

113 

Patient  Report 

163 

Withdrawal  From 

l 

Social  Contact 

F igure  5.1.1.1b 

Assessments,  related  factors,  goals  and  nursing  orders 
used  are  not  an  inclusive  list,  but  rather  generic  options 
tc  build  an.  Any  assessment,  related  factor,  goal  or  order 
oar.  be  changed  tc  better  reflect  the  individual  nature  of 
their  hcscitai  setting.  Tc  select  any  number  less  than  1C. 
enter  either  03  cr  3  <enter>  to  advance  the  program. 


Related  Factors  and  Patient  Goals 


Following  the  assessment  selection,  the  program  moves  to 
the  related  factor  associated  with  the  diagnosis  CFigure 
5.1.1.1c,  5.1.1.11,  S.l.l.lr,  5.1.1.1z3.  The  patient  goal 
screen  follows  CFigure  5. 1.1. Id,  5.1.1.1m,  5.1.1.1s, 


ward  Room  Bed 


Patient 


Reg  * 


□ate 


Time 


••  SELECT  A  RELATED  FACTOR  FDR  A  PATIENT  WITH 
••  NURSING  DIAGNOSIS  OF  C3HF0RT  ALTERATION  IN:  PAIN 


II  Altered  Sensation 

SI  Disease  /  Condition 

33  Emotional  State 

4  3  Otner  C . 


comfort  alteration  in:  pain,  and  the  goal  selected  from 
Figure  5. 1.1. Id  is  1,  E,  3.  or  5,  Figure  S.l.l.l.e  appears 
To  obtain  additional  information  on  some  of  the  nursing 
orders,  the  program  may  advance  the  nurse  to  Select  Time  / 
Frequency  Option  [Figure  S.l.l.lgl  with  its  help  facility 
CFigure  S.l.l.lhD;  a  teaching  module  [Figure  S.l.l.liD  to 
illicit  the  type  of  teaching  necessary;  or  an  emotional 
support  screen  to  determine  the  type  of  emotional  support 
required  [Figure  5.1.1.1J3.  With  the  selection  of  goal  4, 
the  program  displays  Figure  C5.1.1.1FT. 


word  Roam  Bad  Patient  Reg  a  Date  Tune 

••  SELECT  A  NURSING  ORDER  FOR  «  PATIENT  WHOSE  GOAL  IS  •• 

••  COMMUNICATES:  PAIN  FREE,  EXPERIENCES  LESS / TOLERABLE  PAIN  OR  OTHER  GOAL  •• 


13 

Assess 

Pain 

Factory 

S3 

Offer  PRN  Medications 

23 

Assess 

&  Evaluate  Pain 

73 

Provide  Emotional  Support 

33 

Encaur 

Pt  ta 

Use  Coping 

Strategy 

S3 

Schedule  "Quiet  Times' 

H3 

Give  Infa  & 

Explain  Prac 

ft  Tests 

93 

Teach  Alt  Coping  Strategies 

Other  Nursing  Orders: 


z 9  Oiversional  Activities 


ward  Room  Bad 


Patient 


Reg  ft 


□ate 


Timi 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
••  DEMONSTRATES  SKILLS  8  KNOWLEDGE  TO  ACHIEUE  GOALS  •• 

•  Teach  Stress  Reduction  Techniques 
13  Deep  Breathing 
S3  Progressive  Relaxation 
33  Relaxation  Response 
H3  Diversional  Activity 
S3  Other:  C . 3 


Current  User: 


Select  one  number  Cl-53  -— > 


'  F igure  5 . 1 . 1 . IF 

Each  of  the  four  nur3ing  diagnoses  follows  the  same 
sequence:  assessment,  related  factor,  goal  and  nursing 
order  with  generic  type  responses.  The  only  variation  lies 

m  the  goal  section  af  the  Self-Care  Deficit  diagnosis 
CFigure  S.l.l.laal.  Levels  C  through  h  ore  self "care 
levels  os  defined  in  COMPUTERIZED  NURSING  CARE  PLANNING 
UTILIZING  NURSING  DIAGNOSIS  and  referenced  in  the  main  text 
cf  the  thesis.  Current  level  of  care  required  is  also 
asked  for.  Current  level  of  care  enters  into 
the  patient  classification  determination. 

A  caveat  exists  regarding  the  use  of  the  "other  order" 
option  provided  by  each  oF  the  nursing  order  screens.  riany 
nursing  orders  are  directly  linked  to  the  internal 
processing  of  the  patient  classification  system.  The  use 
of  the  "other  order"  may  give  a  more  accurate  order,  but 
will  not  enter  points  into  the  patient’s  classification 
level.  If  orders  are  identified  that  need  to  be  added,  and 
affect  the  patient  classification,  they  should  be 
incorporated  into  the  program,  rather  than  being  typed  in. 


Inactivate  Portion  af  Care  Plan 


In  addition  to  selection  1  on  the  Select  Desired  Nursing 
Care  Plan  Function  screen  CFigure  5.1.1.13,  the  nurse  can 
choose  to  inactivate  a  portion  of  the  care  plan  by 


selecting  option  2.  Figure  5. 1.1. lag  displays  nursing  care 
plan  information  for  review  and  inactivation  as  needed. 


U.  System  Administration  Personnel 


Access  level  0  ar  2  will  allow  the  user  access  to  the 
System  Administration  section  of  the  program.  The  target 
user  group  for  this  section  is  the  department  responsible 
for  issuing  access  levels  and  recording  user’s  information. 
Figure  B.l  provides  the  format  used  to  enter  user’s 
information . 


Add  A  user 


ueiete  a  use 


Figure  S 


USER  ! NFORflAT I ON 


•••  THIS  I NFORnAT ION  IS  CONFIDENTIAL  ••• 


First  Initial: 

niddla  Initial 

Last  Nana: 

Category  of 
Requestor 

Password : 

Access  Level 


Figure  6.1 


The  User  Irformat 
After  inputting  the 
next  category .  The 
acceptable  inputs  cr 
F irst  Initial: 


Middle  Initial: 


Last  Name: 


Category  of 
Requestor : 


Password : 


Access  Level : 


ion  screen  consists  of  6  input  areas, 
information,  press  enter  to  move  tD  the 
amount  of  information  and  the 
e  as  follows. 

Allows  only  one  character  to  be  enter¬ 
ed,  automatically  capitalizes  it, 
places  a  period  after  the  letter  and 
advances  the  user  to  the  next  field. 
Parameters  are  identical  to  First 
Initial , 

Allows  entry  of  up  to  SO  letters, 
capitalizes  the  first  letter  and 
advances  the  user  to  the  next  field. 

A  three  letter  Field  For  a  coded 
category . 

Could  include  rate,  rank  or  education¬ 
al  background.  Used  for  user  infor¬ 
mation  only  and  is  not  otherwise 
incorporated  into  the  program. 

A  5  letter  or  number  cade  selected  by 
the  user  to  lag  into  the  system. 
Authorizes  a  person  to  enter  different 
sections  of  the  software  project. 

Five  levels  of  access  are  available: 

0  Unlimited  access  to  all  sections  of 
the  software  project. 

1  Restricted  to  the  admission’s  sec¬ 
tion  of  the  software  project. 


2  Restricted  to  the  data  base  section 
of  the  software  project. 

3  Restricted  to  the  doctor  section  of 
the  software  project. 

4  Restricted  to  the  nursing  section 
of  the  software  project. 


Expert  System  Supplement 


There  are  two  ways  for  the  nurse  to  obtain  a  patient 
classification,  externally  or  internally  Cselection  4  and  7 
respectively  on  Figure  S.1.1  —  Nurse’s  Master  Screen!. 
Selection  4  loads  a  qualifier  and  value  number  for  each 
patient  order  that  corresponds  to  a  critical  indicator. 

This  is  the  expert  system  information  to  calculate  the 
patient  classification  level. 

To  calculate  the  external  patient  classification  system 
choose  selection  4,  Figure  S.1.1.  A  manufacturer’s 
sign-off  message  appears  at  the  bottom  af  the  screen 
indicating  that  you  are  leaving  dBase  III.  Remove  disk  A:2 
and  insert  disk  A: 3.  Type  b: expert  <enter> .  The  expert 
program  loads  into  memory  the  necessary  information  to 
calculate  the  patient  classification.  The  program  asks 
some  preliminary  questions  Cthree!  which  require  no  response 
except  <enter> .  The  expert  system  program  gives  the 
user  an  opportunity  to  see  the  rules  used  to  arrive  at  the 
classification  level. 

Selection  7  of  Figure  5.1.1  works  in  a  similar  manner  to 
selection  4,  without  leaving  the  main  program.  Selection  7 
provides  a  much  quicker  patient  classification  level,  but 
is  not  able  to  provide  the  user  with  the  information  on  how 
the  classification  was  derived. 

During  the  programming  phase  of  this  project,  medical 
orders  that  corresponded  to  critical  indicators  were  tied 
to  their  corresponding  medical  order,  ie.  vital  signs  QD 
receives  a  patient  point  value  af  1,  apnea  monitor  receives 
a  monitor  point  value  af  B.  The  reason  vital  signs  has  a 
patient  point  value  and  apnea  monitor  has  a  monitor  point 
value  is  because  the  vital  sign’s  critical  indicator 
relates  directly  to  critical  indicator  points.  This  is  not 
true  of  an  order  for  an  apnea,  cardiac  or  pressure  monitor. 
In  the  latter  case  the  patient  point  total  would  remain  at 
B  even  if  three  monitors  were  ordered.  Where  point  totals 
are  not  additive  Dr  do  not  directly  translate  to  patient 
paints  --  the  cardiac,  apnea,  temp  and  pressure  monitors; 


S&A,  SpGr,  Guiac  and  spin  HCT ;  and  emotional  support  — 
special  point  totals  are  calculated  prior  to  their 
translation  to  a  patient  point  totals. 


Listed  in  Appendix  F  are  qualifiers  and  their  values 
used  to  derive  the  expert  system’s  rules.  Through  the  use 
of  302  rules,  the  patient  classification  level  is  derived. 


APPENDIX  D 


PATIENT  CLASSIFICATION  CRITICAL  INDICATORS 


(11 

Vital  sign  010  or  lass- 

VITAL  SIGNS  (MANUAL  TP*.  SP* 

123  Racial  at  axillary  tamn  at  apical  pain  010  at  man 

12) 

Vital  sign  p4h  a  s  1 

t21 

r  moral  at  padal  paisas  at  FHT  g4k  at  won 

(4) 

Vital  sign  p2b  a  s  12 

12) 

Tilt  tatta  p4b  at  man 

18) 

Vital  sign  qlh  or  i  24 

181 

Past-op.  paat-porttua  a  port  nrtban 

121 

tanabp  sad  oatpat  gSb  at  s  3 

MONITORING 

■  16) 

Catdiaciapmitaatpipmnn  mositoo  sat  addidva) 

(81 

lataka  aad  aatpaf  g2k  at  s  12 

(61 

Tnainnianai  manta  \ 

(2) 

Qrcoiadaa  a  fsndn  ebada  p2h  at  i  12 

(4) 

A41aa  a  1C?  (ami  tat  a  Swap  (Upx  spt-ap 

.31 

Basra  chads  p4b  a  a  1 

13] 

A  Tun  a  1C?  (ami  art  matfipg  g2i  a  a  12 

181 

lean  efeaeba  p2h  a  a  12 

12) 

PAPIPA  wadga  raadnq  p4k  a  a  1 

(21 

CVP  a  1CP  lanaaal)  g2b  at  a  12 

14) 

PA?r?A  wadga  mating  g2h  a  a  12 

(2) 

Canbaa  oatpat  TW  a  a  3 

16) 

121 

16) 

114) 

(2) 

IS) 

161 

110) 


lofaautaddln  an  (  sS  yatrs)  . 

Safftanabaaf  can  (adaft  or  Child  »  S  yaarsi 
tnand  can  (  »  5  yarn)  ■  position  sail 
Campion  an  ( »  S  yonrat  assist  anti  psaitnioiaq 


OCDVITIB  OF  DAILY  UVINO 


Tuba  faadiag  Icaatioaoas!  -  par  bap  ehaaqa 
Tuba  faab  Mas)  adahJcbiid/aaaaata  q4h  a  a  8 
Adatt  naate  »  5  faan  (span  food  I  31 
Quid  manta  a  S  years  (span  faad  i  3) 

TTtdATMCTrT3/WWOCgPUHg3/MEniCATtONa 


U2T 

(41 

114) 

in 

dgeoiwg 

121 

1123 

(24) 


load  can  (  »  S  nan)  ■  paaibaa  tad  akia  an  q2b 
Extra  Gaaa  cbaagt  xad  partial  ban  2x  par  shift 
Tnramg  ham  (2  staff  ta  an  q2hl 

8-12  yt*  lasduda  161) 


lafaathaaaata  battia  i  1  faadiap 
lataatinaoaan  battle  q4b  ail 
lafaaOaaaaata  baafa  p2b  ar  a  12 


Simula  » 16  sad  «  30  Mlaataa  Tatal 


121 

(21 

12) 

(2) 
12) 
(2) 
121 
12) 
121 
12) 
(2) 
12)  • 
121 
12) 


Stan  iv  or  MG  msaraaa  or  loiay  maarttoa  or  EXG 
Sargicai  prap  or  aaaoaa  or  aa  wTspsielaai 
Slapfa  *as»oq  s  2.  or  taba  can  x  2  (axefada  track i.  Faiay 
ana  2 

S4A  or  Spfir  tr  Oaiac  or  spia  HCT  a  I 
Lab  ssadka  a  t  ABC  trick  or  Maad  aitan  a  3 
Madiraiiaaa  q3k  -  qlh  (aaefada  IV)  -  (  ap  ta  12  tnpal 
Impatfaaa  or  iaatUlatiaaa  a  4  a  Ian 
(Uatraiatt  12  a  4  pant  a  passy) 

Assist  ta  ebair  a  arraoeba  aad  man  a  3 
Assist  a  an  Ik  sad  man  a  1 


Comsat  »  30  nwatn  pad  a  1  Hoar  Total 


141 

(4) 

(4) 

(4) 

14) 

(4) 

14) 

(4) 

141 

1121 


Cbaat  coaa  waaraaa  « In 
Ttaneaataaa  a  pancaa 

Coiaplaa  dnasiag  chaaga  (  »  30  was  ns  ta  caaipiatal 
Straight  catbatanaadaa  a  4  a  nan 
Madicatwaapa  a  mn  laadada  IV)  I  a  12  tnpal 

Rrranpaay  padaat  off  staid  >  30  mans 


Otba  nan  idea  lapauiap  >  30  i 
Tnaafar  0a  baaaal  -  aasan  4  onsw 
mas  6  orraat 


i  aad  1  hoar 


loofatiaa  (paata  I  pfava  a  I) 

Acciaapaap  padaat  off  ward  >  IS  own*  4  *  30  mans 
Otba  acdvidaa  raqairiag  »  IS  mans  4  w  30  miasm 

HgSWrWATOHY  TWBtaPY 


lead  dntadaiaa  »  1  Haa  «  4  Hoars 

III  Lacs  eaapwra  b«a  tapamap  caanaaaaa  staff  attaodsnea 


12) 

Oaygaa  tfwrapy  a  aaybaad 

12) 

Chaw  palm —«ry  tfwrapy  BID  a  a  2 

121 

lacaadya  tpwunata  a  C406  p4h 

14) 

Cbaat  palawaary  tharapy  q6b  a  a  4 

i2) 

IPPB  a  maxianat  BIO  a  a  2 

IS) 

Cbaat  paimoaary  tharapy  q4b  a  a  8 

'41 

IP?8  a  maaimiat  q8h  at  a  4 

(21 

Saadoatag  q44  or  t  8 

16) 

IP?B  a  maaimiat  q4h  a  a  8 

141 

Suctioning  q2b  a  I  12 

.ai 

Croup  taw  at  mist  taw 

14) 

1101 

tv  YHeWAPV 

Traebaastamy  can  t  3 

V anti  lata 

41 

KVO  (changa  bards  BIO  a  lata) 

tZ) 

Medication  qflb  or  x  3 

'O 

Haparia  look  at  Bray.ae 

131 

Medication  til  *  i  1 

181 

simpia  lebanga  herds  T10  a  0101 

141 

ModteaDoa  ^4h  or  x  8 

18) 

Camoiox  it w*  or  more  situ  or  dian^o  trartia  q4t»  or 
omitiluaiM  line) 

(21 

Blood  pndacts  laaeh  unit) 

Toactwia 


TtACUIWO  AND  FMOTtONAL  SUPaORT 
llVItawc  bs  docMmwitsdl 

fmcoonm  Support  fiat  »si 


12)  Greaa  taacbinp  14) 

14)  Pnapwatwa  taacbinp  141 

14)  Stmctnrsd  taacbinp  (La.  diabanc  cardiac  colostomy  can. 

pnt  puna  first  24  bra.  oastborn  can.  discharge)  16) 


i  of  30  minima  n  24  hours.) 


Paaontifaatiy  support  i-S.  iniiaty.  lamai.  loneitness.  etc! 
Modrfiesnoa  lifestyle  (Lc  now  prostbnic  body  imago, 
bobavia  medificatiao.  rtcJ 

Senary  oaqmrsuon  iLc  ntardad.  dost,  blind,  langnagn 
Cam  at.  bilanrai  ays  patches.  confused.  combative.  atcj 
Mastmsm  points  lor  ametisnol  support 
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CONTINUOUS 

1901  Ratiem  rapoirinp  1:1  corses yo  ait  shifts  (1-a.  pamsoasi  dialysis.  esmsaava.  rtcJ 

(1461  Padaat  rsqainnq  prsata  tbaa  1:1  eoyaraga  si)  inifts  ca.  yanolaur  with  moltisli  rasoprtsson.  IABP.  ate! 
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QUALIFIERS 


1.  Uital  signs  order  is: 

□ID  or  less 
q4h  or  x  B 
q2h  or  x  12 
qlh  or  x  24 
Not  ordered 

Used  in  rules:  1-5 

2.  Rectal  or  axillary  temp  order  is: 

Rectal  temps  less  than  QID 
Axillary  temps  less  than  QID 
Rectal  temps  QID  or  more 
Axillary  temps  QID  or  more 
Not  ordered 

Ueed  In  rules:  B-10 

3.  Patient  order  For  apical  pulse  is: 

Apical  pulse  less  than  QID 
Apical  pulse  QID  or  more 
Not  ordered 

Used  in  rules:  11-13 

4.  Patient  order  for  femoral  pulse  is 

Femoral  pulses  are  less  than  q4h 
Femoral  pulses  q4h  or  more 
Not  ordered 

Used  in  rules:  14-16 

5.  Patient  order  For  pedal  pulse  is: 

Pedal  pulses  less  than  q4h 
Pedal  pulses  q4h  or  more 
Not  ordered 


6.  Patient  order  For  FHT  is: 


FHT  less  than  q4h 
FHT  q4h  or  more 
Nat  ordered 

Used  in  rules:  BO-22 

7.  Patient  order  for  tilt  test  is: 

Tilt  test  less  than  q4h 
Tilt  test  q4h  or  more 
Not  ordered 

Used  in  rules:  23-25 

0.  Patient  order  for  postop/post  partum/post-nB«jborn  vital 
signs  is: 

Post  op  vital  signs 
Post-partum  vital  signs 
Post-neuibarn  vital  signs 
Not  ordered 

Used  in  rules:  26-29 

9.  Patient  order  for  intake  &  output  i3: 

Intake  &  output  le3S  than  qBh  or  x  3 

Intake  &  output  at  least  qBh  Cx  3D  but  less  than  q4h 
Cx6D 

Intake  &  output  q4h  or  x  6 

Intake  &  output  q2h  or  x  12 

Intake  8  output  qlh  or  x  24 

Not  ordered 

Used  in  rules:  30-35 

10.  Patient  order  For  circulation  checks  is: 

Circulation  checks  less  than  q2h  or  x  12 
Circulation  checks  q2h  or  x  12 
Circulation  checks  qlh  or  x  24 
Not  ordered 

Used  in  rules:  36-39 
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11.  Pot lent  orders  For  neuro  checks  is: 

Neuro  checks  less  than  q4h  or  x  6 
Neuro  checks  q4h  or  x  B 
Neuro  checks  q2h  or  x  12 
Neuro  checks  qlh  or  x  24 
Not  ordered 

Used  in  rules:  40-44 

12.  Patient  order  far  CUP  manual  readings  is 

CUP  manual  readings  less  than  q2h  or  x  12 
CUP  manual  readings  q2h  or  x  12 

CUP  manual  readings  qlh  or  x  24 

Not  ordered 

Used  in  rules:  45-40 

13.  Patient  order  for  ICP  manual  readings  is 

I CP  manual  readings  less  than  q2h  or  x  12 
ICP  manual  readings  q2h  or  x  12 

ICP  manual  readings  qlh  or  x  24 

Not  ordered 

Used  in  rules:  49-52 

14.  Patient  order  for  fundus  checks  is 

Fundus  checks  less  than  q2h  or  x  12 
Fundus  checks  q2h  or  x  12 
Fundus  checks  qlh  or  x  24 
Not  ordered 

Used  in  rules:  53-56 

15.  Patient  order  for  transcutaneous  monitor 

Transcutaneous  monitor 
Not  ordered 

Used  in  rules:  57,  56 

16.  Patient  order  for  an  A-line  set-up  is 

A-line  set-up 
Not  ordered 


Used  in  rules:  59,  60 


17.  Patient  order  for  an  ICP  monitor  set-up  is: 

ICP  monitor  set-up 
Not  ordered 

Used  in  rules:  61,  62 

18.  Patient  order  For  5wan-Gantz  set-up  is: 

Suian  Ganz  set-up 
Not  ordered 

Used  in  rules:  63,  64 

19.  Patient  order  for  A-line  reading  is: 

A-line  reading  less  than  q2h  or  x  12 
A-line  reading  q2h  or  x  12 
A-line  reading  qlh  or  x  24 
Not  ordered 

Used  in  rules:  65-68 

20.  Patient  order  for  ICP  monitor  reading  is: 

ICP  monitor  reading  less  than  q2h  or  x  12 
ICP  monitor  reading  q2h  ar  x  12 

ICP  monitor  reading  qlh  or  x  24 

Not  ordered 

Used  in  rules:  69-72 

21.  Patient  order  For  PAP/PA  uiedge  reading  is: 

PAP/PA  wedge  reading  of  less  than  q4h  or  x  6 

PAP/PA  wedge  reading  q4h  or  x  6 

PAP/PA  wedge  reading  q2h  or  x  12 

PAP/PA  wedge  reading  qlh  or  x  24 

Not  ordered 

Used  in  rules:  73-77 

22.  Patient  order  For  cardiac  output  is: 

Cardiac  output  less  than  TID  or  x  3 

Cardiac  output  less  than  TID  Cx  3D  but  less  than  q4h 

Cx  6D 

Cardiac  output  q4h  or  x  6 
Cardiac  output  q2h  or  x  12 


Cardiac  output  qlh  or  x  24 
Not  ordered 

Used  in  rules:  78-83 

23.  Patient  order  For  ADL  is: 

Infant/toddler  care  C  -<  5  years] 

Self /minimal  care  Cadult  or  child  >  5  years] 

Assisted  care  C>  5  years]  positions  self 
Complete  care  C>  5  years]  assist  with  positioning 
Total  care  C>  5  years]  position  and  skin  care  q2h 

Used  in  rules:  84-88 

24.  Patient  order  for  extra  linen  change  and  partial  bath 

Is: 

Extra  linen  change  and  partial  bath  less  than  2x  per 
shift 

Extra  linen  change  and  partial  bath  2x  per  shift  Cor  Bx 
per  day] 

Extra  linen  change  and  partial  bath  4x  per  shift  Cor  12x 
per  day] 

Extra  linen  change  and  partial  bath  8x  per  shift  Cor  24x 
per  day] 

Not  ordered 

Used  in  rules:  89-83 

25.  Patient  order  for  turning  frame  is: 

Turning  frame  less  than  q2h 
Turning  frame  q2h  or  x  12 
Turning  frame  qlh  ar  x  24 
Not  ordered 

Used  in  rules:  94-97 

26.  Patient  order  For  peds  recreation/abservation  is: 

Peds  recreation/abservation  -  0-12  yrs  Cexc  NBN] 

Not  ordered 

Used  in  rules:  98,  99 

27.  Patient  order  for  tube  feedings  is: 

Tube  Feedings  continuous  —  less  than  1  bag  per  24  hours 
Tube  Feedings  continuous  —  1  bag  per  24  hours 


Tube  feedings  continuous  —  2  bag  per  24  hours 
Tube  feedings  continuous  —  3  bag  per  24  hours 
Tube  feedings  continuous  —  4  bag  per  24  hours 
Tube  feedings  continuous  —  6  bag  per  24  hours 
Tube  feedings  continuous  —  12  bag  per  24  hours 
Tube  feedings  continuous  —  24  bag  per  24  hours 
Tube  feedings  Cbalus3  less  than  q4h  or  x  6 

Tube  feedings  Cbolus3  q4h  or  x  5 

Tube  feedings  CbolusD  q2h  or  x  12 

Tube  feedings  CbolusD  qlh  or  x  24 

Not  ordered 

Used  in  rules:  100-112 

20.  Patient  order  for  spoon  feeding  is: 

Adult  meals  >  5  Cspoon  feed  x  33 
Child  meals  ■<  5  years  Cspoon  feed  x  33 
Not  ordered 

Used  in  rules:  113-115 

29.  Patient  order  for  infant/neonate  bottled  feeding  is: 

Infant /neonate  bottle  x  1  feeding 
Infant/neonate  bottle  q4h  ar  x  B 
Infant/neonate  bottle  q2b  or  x  12 
Nat  ordered 

Used  in  rules:  116-119 

30.  Patient  order  for  IU  insertion  is: 

IU  insertion 
Not  ordered 

Used  in  rules:  120,  121 

31.  Patient  order  far  NB  insertion  is: 

NG  insertion 
Not  ordered 

Used  in  rules.-  122,  123 

32.  Patient  order  for  foley  insertion  /  straight  catheter 

ization  is: 

Foley  insertion 

Straight  catheterization  of  less  than  4 


Straight  catheterization  of  4  or  more 
Not  ordered 


Used  in  rules:  124-127 


33.  Patient  order  for  EKG  strip  is: 


EKG  rhythm  strip 
Not  ordered 


Used  in  rules:  12B,  12S 

34.  Patient  order  far  surgical  prep  is: 


Surgical  prep 
Not  ordered 


Used  in  rules:  130,  131 

35.  Patient  order  for  enemas  is: 


Enemas 
Nat  ordered 


Used  in  rules:  132,  133 

36.  Patient  order  For  ace  uirap/elastic  stockings  is 


Bee  wrap 

Elastic  stockings 
Not  ordered 


Used  in  rules:  134-136 

37.  Patient  order  Far  dressings  change  is: 

Simple  dressing  change  less  than  x  2  or  BID 
Simple  dressing  change  x  2  or  BID 
Simple  dressing  change  x  3  or  TID 
Simple  dressing  change  x  4  or  QID 
Simple  dressing  change  x  6  or  q4h 
Simple  dressing  change  x  12  or  q2h 
Simple  dressing  change  x  24  or  qlh 
Complex  dressing  change  x  1  or  QD 

Complex  dressing  change  x  2  or  BID 

Complex  dressing  change  x  3  or  TID 

Complex  dressing  change  x  4  or  QID 

Complex  dressing  change  x  6  or  q4h 

Complex  dressing  change  x  12  or  q2h 


£ 


Complex  dressing  change  x  24  or  qlh 
Not  ordered 

Used  in  rules:  137-151 

38.  Patient  order  for  tube  care  [excluding  trachl  is 

Tube  care  less  than  x  2  or  BIO 

Tube  care  x  2  or  BID 

Tube  care  x  3  or  TID 

Tube  care  x  4  or  DID 

Tube  care  x  6  or  q4h 

Tube  care  x  12  or  q2h 

Tube  care  x  24  or  qlh 

Not  ordered 

Used  in  rules:  152-159 

39.  Patient  order  for  Foley  care  is: 

Foley  care  less  than  x  2  or  BID 

Foley  care  x  2  or  BID 

Foley  care  x  3  or  TIO 

Foley  care  x  4  ar  QID 

Foley  care  x  G  or  q4h 

Foley  care  x  12  or  q2h 

Foley  care  x  24  ar  qlh 

Not  ordered 

Used  in  rules:  160-167 

40.  Patient  order  for  S  &  S  is: 

S  &  A  x  1  or  00 
S  &  A  x  2  or  BID 
S  8  A  x  3  or  TID 
S  8  A  x  4  or  QID 
S  ft  A  x  6  or  q4h 
S  ft  A  x  12  or  q2h 
S  ft  A  x  24  or  qlh 
Not  ordered 

Used  in  rules:  168-175 

41.  Patient  order  for  SpGr  is: 

SpGr  x  1  or  QD 
SpGr  x  2  or  BID 
SpGr  x  3  or  TID 
SpGr  x  4  or  DID 


SpGr  x  5  or  q4h 
SpGr  x  IS  or  q2h 
SpGr  x  24  or  qlh 
Not  ordered 

Used  in  rules:  176-103 

42.  Patient  order  for  Guiac  is: 

Gulac  stools  x  1  or  QD 
Guiac  stools  x  2  or  BIO 
Guiac  stools  x  3  or  TIO 
Guiac  stools  x  4  or  QID 
Guiac  stools  x  6  or  q4h 
Guiac  stools  x  12  or  q2h 
Guiac  stools  x  24  or  qlh 
Not  ordered 

Used  in  rules:  184-191 

43.  Patient  order  Far  spin  HCT  is: 

Spin  HCT  x  1  or  QD 
Spin  HCT  x  2  or  BID 
Spin  HCT  x  3  or  TID 
Spin  HCT  x  4  or  QID 
Spin  HCT  x  6  or  q4h 
Spin  HCT  x  12  or  q2h 
Spin  HCT  x  24  or  qlh 
Not  ordered 

Used  in  rules:  192-199 

44.  Patient  order  Far  lab  studies  is: 

Lab  studies  less  than  x  6 
Lab  studies  x  6  or  q4h 
Lab  studies  x  12  or  q2h 
Lab  studies  x  24  or  qlh 
Not  ordered 

Used  in  rules:  200-204 

45.  Patient  order  For  ABG  stick  is: 

ABG  sticks,  less  than  3 

ABG  sticks,  at  least  3  but  less  than  6 

ABG  sticks  x  6 

ABG  sticks  x  12 


ABG  sticks  x  24 
Not  ordered 

Used  in  rules.-  205-210 

46.  Patient  order  for  blood  cultures  is: 

Blood  cultures  Ibss  than  x  3 

Blood  cultures  at  least  x  3  but  less  than  x  6 

Blood  cultures  x  6 

Blood  cultures  x  12 

Blood  cultures  x  24 

Not  ordered 

Used  in  rules:  211-216 

47.  Patient  order  far  medications  is: 

dedications  less  than  qBh  Cexcluding  IU3 
dedications  q3h  -  qBh  CBxcluding  IU3  -  up  to  12  trips 
dedications  q2h  or  mare  Cexcluding  IU3  -  >  12  trips 
Not  ordered 

U3ed  in  rules:  217-220 

48 .  Patient  order  Far  irrigations  is: 

Irrigation  x  4  CQID3  or  less 
Irrigation  x  6  or  q4h 
Irrigation  x  12  or  q2h 
Irrigation  x  24  or  qlh 
Not  ordered 

Used  in  rules:  221-225 

49.  Patient  order  For  instillations  is: 

Instillations  x  4  CQID3  or  less 
Instillations  x  6  or  q4h 
Instillations  x  12  or  q2h 
Instillations  x  24  or  qlh 
Not  ordered 

Used  in  rules:  226-230 

50.  Patient  order  For  restraints  is: 

2-point 

4-point 
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Not  ordered 


Used  in  rules:  231-234 

51.  Patient  order  of  assist  to  chair  /  stretcher  is: 

Assist  to  chair  and  return  less  than  x  3  or  TID 

Assist  to  stretcher  and  return  less  than  x  3  or  TID 

Assist  to  stretcher  at  least  x  3  but  less  than  x  6 

Assist  to  stretcher  x  6  or  q4h 

Assist  to  stretcher  x  12  or  q2h 

Assist  to  stretcher  x  24  or  qlh 

Assist  to  chair  at  least  x  3  but  less  than  x  6 

Assist  to  chair  x  6  or  q4h 

Assist  to  chair  x  12  or  q2h 

Assist  to  chair  x  24  or  qlh 

Ambulate  uiith  assistance  x  1 

Ambulate  with  assistance  x  2 

Ambulate  with  assistance  x  3 

Ambulate  uiith  assistance  x  4 

Ambulate  with  assistance  x  5 

Ambulate  with  assistance  x  12 

Ambulate  with  assistance  x  24 

Not  ordered 

Used  in  rules:  236-252 

52.  Patient  order  For  infant  circumcision  care  i3: 

Infant  circumcision  care 
Not  ordered 

Used  in  rules:  253,  254 

53.  Patient  order  Far  phototherapy  is: 

Phototherapy 
Not  ordered 

Used  in  rules:  255,  256 

54.  Patient  order  For  isolation  is: 

Isolation  Cchange  gown  and  gloves  <  x  03 
Isolation  [change  gown  and  gloves  x  8  or  more] 

Not  ordered 

Used  in  rules:  257-259 


55.  Patient  order  for  accompany  patient  off  ward  is: 


Accompany  patient  off  ward  for  less  than  15  min 

Accompany  patient  off  ward  for  15  to  30  min 

Accompany  patient  off  ward  for  greater  than  30  min 

Not  ordered 

UsBd  in  rules:  260-263 

56.  Patient  order  for  other  activities  is: 

Other  activities  requiring  less  than  15  minutes 
Other  activities  requiring  15  to  30  minutes 
Other  activities  requiring  30  min  to  1  hr 
Special  procedures  >  Ihr  <  2  hr  Crequiring  continuous 
staff  attendance! 

Not  ordered 


Used  in  rules:  264-260 

57.  Patient  order  for  chest  tube  insertion  is: 

Chest  tube  insertion 
Nat  ordered 

Used  in  rules:  269,  270 

50.  Patient  order  for  lumbar  puncture  is: 

Lumbar  puncture 
Not  ordered 

Used  in  rules:  271,  272 

59.  Patient  order  for  thoracentesis  is: 

Thoracentesis 
Nat  ordered 

Used  in  rules:  273,  274 

60.  Patient  order  for  paracentesis  is: 

Paracentesis 
Not  ordered 

Used  in  rules:  275,  276 


61.  Patient  order  for  range  of  motion  is: 


Range  of  motion  exercises  less  than  x  3  or  TID 

Range  of  motion  exercises  at  least  x  3  but  less  than  x  6 

Range  of  motion  exercises  x  6  or  q4h 

Range  of  motion  exercises  x  12  or  q2h 

Range  of  motion  exercises  x  24  or  qlh 

Not  ordered 

Used  in  rules.-  277-282 

62.  Patient  order  to  transfer  in-house  or  new  admission  is: 

Transfer  in-house  Cassess  and  orient! 

New  admission  Cassess  and  orient! 

Not  ordered 

Used  in  rules:  283-285 

63.  Patient  order  far  02  therapy  ar  oxyhood  is: 

Oxygen  therapy 

Oxyhood 

Nat  ordered 

Used  in  rules:  286-288 

64.  Patient  order  for  incentive  spirometer  is: 

Incentive  spirometer  less  than  q4h 
Incentive  spirometer  q4h 
Incentive  spirometer  q2h 
Incentive  spirometer  qlh 
Not  ordered 

Used  in  rules:  289-233 

65.  Patient  order  for  C&DB  is: 

C  &  OB  less  than  q4h 
C  &  DB  q4h 
C  &  DB  q2h 
C  &  DB  qlh 
Not  ordered 

Used  in  rules:  294-298 

66.  Patient  order  for  IPPB  ar  maximist  is: 


IPPB  or  maximist  less  than  BID  or  x  2 


IPPB  or  maximist  BID  or  x  2 
IPPB  or  maximist  TID  or  x  3 
IPPB  or  maximist  q6h,  x  4  or  QID 
IPPB  or  maximist  q4h,  x  B 
IPPB  or  maximist  q2h,  x  12 
IPPB  or  maximist  qlh,  x  24 
Not  ordered 

Used  in  rules:  299-306 

67.  Patient  order  for  croup  tent  or  mist  tent  is: 

Croup  tent 
(list  tent 
Not  ordered 

Used  in  rules:  307-309 

68.  Patient  order  For  chest  pulmonary  therapy  is: 

Chest  pulmonary  therapy  less  than  BID  or  x  2 

Chest  pulmonary  therapy  BID  or  x  2 

Chest  pulmonary  therapy  TID  or  x  3 

Chest  pulmonary  therapy  QID  or  x  4 

Chest  pulmonary  therapy  q4h  or  x  6 

Chest  pulmonary  therapy  q2h  or  x  12 

Chest  pulmonary  therapy  qlh  or  x  24 

Not  ordered 

Used  in  rules:  310-317 

69.  Patient  order  For  suctioning  is: 

Suctioning  less  than  q4h  or  x  6 
Suctioning  q4h  or  x  6 

Suctioning  q2h  or  x  12 

Suctioning  qlh  or  x  24 

Not  ordered 

Used  in  rules:  318-322 

70.  Patient  order  For  trach  care  is: 

Trach  care  <  x  3  or  less  than  TID 

Trach  care  at  least  TID  Cx  31  but  Ibss  than  q4h  Cx  61 

Trach  care  x  6  or  q4h 

Trach  care  x  12  or  q2h 

Trach  care  x  24  or  qlh 

Not  ordered 

Used  in  rules:  323-328 


71.  Patient  order  for  ventilator  ie: 

Uentilator 
Not  ordered 

Used  in  rules:  329,  330 

72.  Patient  order  for  hanging  IU  bottles  is: 

KUO  Cchange  bottle  BID  or  less! 

Simple  Cchange  bottle  TID  or  QID3 

Complex  Cchange  bottle  q4h  or  more,  two  or  more  sites, 
or  multilumen  tube! 

Not  ordered 

Used  in  rules:  331-334 

73.  Patient  order  For  heparin  lock  or  Broviac  catheter  is 

Heparin  lock 
Broviac  catheter 
Not  ordered 

Used  in  rules:  335-337 

74.  Patient  order  for  IU  medication  is.- 

IU  medication  of  less  than  qBh  or  x  3 
IU  medication  qBh  or  x  3 
IU  medication  qBh  ar  x  4 
IU  medication  q4h  or  x  B 
IU  medication  q2h  or  x  12 
IU  medication  qlh  ar  x  24 
Not  ordered 

Used  For  rules:  33B-344 

75.  Patient  order  For  blood  products  is: 

Blood  products  x  1  unit 
Blood  products  x  2  unit 
Blood  products  x  3  unit 
Blood  products  x  4  unit 
Blood  products  x  5  unit 
Blood  products  x  12  unit 
Blood  products  x  24  unit 
Not  ordered 


Used  in  rules:  345-352 


76.  Patient  order  for  group  teaching  is: 

Group  teaching 
Not  ordered 

Used  in  rules:  353,  354 

77.  Patient  order  far  preoperative  teaching  is: 

PreopBrative  teaching 
Not  ordered 

Used  in  rules:  355,  356 

78.  Patient  order  for  structured  teaching  is: 

Structured  teaching  Ci.e.  diabetic,  cardiac,  colostomy 
care,  past  partum  first  24  hr,  newborn  care, 
discharge] 

Nat  ordered 

Used  in  rules:  357,  358 

79.  Patient  order  For  emotional  support  is: 

Patient/Family  support  Ci.e.  anxiety,  denial,  lonlinessl 
Nat  ordered 

Used  in  rules:  353,  360 

80.  Patient  order  For  modification  of  lifestyle  is: 

Emotional  support  For  modification  of  lifestyle  Ci.e. 

new  prothesis,  body  image,  behavior  modification] 

Not  ordered 

Used  in  rules':  361,  362 

81.  Patient  order  For  sensory  deprivation  is: 

Emotional  support  for  sensory  deprivation  Ci.e. 

retarded,  blind,  deaf,  language  barrier,  bilateral 
eye  patches,  confused,  combative,  etc.] 

Not  ordered 

Used  in  rules:  363,  364 


82.  Patient  order  for  cardiac  monitor  is: 

Cardiac  monitor 
Not  ordered 

Used  in  rules:  365,  366 

83.  Patient  order  For  apnea  monitor  is: 

Apnea  monitor 
Not  ordered 

Used  in  rules:  367,  368 

84.  Patient  order  For  temp  monitor  is: 

Temp  monitor 
Not  ordered 

Used  in  rules:  369,  370 

85.  Patient  order  For  pressure  monitor  is: 

Pressure  monitor 
Not  ordered 

Used  in  rules.-  371,  372 
B6.  Patient  category  is: 

I  SelF  Care/Minimal  Care 

I I  Moderate  Care 

III  Acute  Care  Cl  staFF  to  3  patients! 

IU  Intensive  Care  Cl  staFF  to  2  patients! 
U  Continuous  Care  Cl  staFF  to  1  patient! 
UI  Critical  Care  Cl  staFF  to  1  patient! 


Used  in  rules:  377-382 


RULES 


Rule  Number:  1 

IF:  Uital  signs  order  is:  DID  or  less 

THEN:  CptpointJ  is  given  the  value  CptpointD  +  1 

Rule  Number:  2 

IF:  Uital  signs  order  is.-  q4h  or  x  5 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  3 

IF:  Uital  signs  order  is:  q2h  or  x  12 

THEN:  Cptpaintl  is  given  the  value  CptpomtD  +  4 

Rule  Number:  4 

IF:  Uital  signs  order  is:  qlh  or  x  24 

THEN:  CptpointH  is  given  the  value  Cptpoint!]  +  B 

Rule  Number:  5 

IF:  Uital  signs  order  is:  Nat  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  6 

IF:  Rectal  or  axillary  temp  order  is:  Rectal  temps 
less  than  QID 

THEN:  Cptpaintl  is  given  the  value:  no  points  awarded 
Rule  Number:  7 

IF:  Rectal  or  axillary  temp  order  is:  Axillary  temps 
less  than  QID 

THEN:  Cptpaintl  is  given  the  value:  no  points  awarded 
Rule  Number:  B 

IF:  Rectal  or  axillary  temp  order  is:  Rectal  temps 
QID  or  more 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  2 
Rule  Number:  3 

IF:  Rectal  or  axillary  temp  order  is:  Axillary  temps 
QID  or  more 

THEN:  Cptpaint3  is  given  the  value  CptpamtD  +  2 
Rule  Number:  10 

IF:  Rectal  or  axillary  temp  order  is:  Not  ordered 
THEN;  Cptpointl  is  given  the  value:  no  points  awarded 
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Rule  Number:  11 

IF:  Patient  order  for  apical  pulse  is:  Apical  pulse  less 
than  QID 

THEN:  CptpaintD  is  given  the  value.-  no  points  awarded 
Rule  Number:  12 

IF:  Patient  order  for  apical  pulse  is:  Apical  pulse  QID 
or  more 

THEN:  CptpaintD  is  given  the  value  CptpointD  +  2 
Rule  Number:  13 

IF:  Patient  order  for  apical  pulse  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  14 

IF:  Patient  order  for  femoral  pulse  is:  Femoral  pulses 
less  than  q4h 

THEN:  CptpaintD  is  given  the  value:  no  points  awarded 
Rule  Number:  IS 

IF:  Patient  order  far  Femoral  pulse  is:  Femoral  pulses 
q4h  or  more 

THEN:  CptpaintD  is  given  the  value  CptpointD  +  2 
Rule  Number:  IS 

IF:  Patient  order  for  femoral  pulse  is-.  Not  ordered 
THEN:  CptpaintD  is  given  the  value:  no  points  awarded 

Rule  Number:  17 

IF:  Patient  order  far  pedal  pulses  is:  Pedal  pulses  less 
than  q4h 

THEN:  CptpaintD  i3  given  the  value:  no  points  awarded 
Rule  Number:  18 

IF:  Patient  order  for  pedal  pulses  is:  Pedal  pulses  q4h 
or  more 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 
Rule  Number:  19 

IF:  Patient  order  for  pedal  pulses  is:  Nat  ordered 
THEN:  CptpaintD  is  given  the  value.-  no  points  awarded 

Rule  Number:  20 

IF:  Patient  order  for  FHT  is:  FHT  less  than  q4h 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number-.  21 

IF:  Patient  order  For  FHT  is:  FHT  q4h  or  more 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 


Rule  Number:  52 

IF:  Patient  order  for  FHT  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  23 

IF:  Patient  order  For  tilt  _ast  is:  Tilt  test  less 
than  q4h 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  24 

IF:  Patient  order  For  tilt  test  is:  Tilt  test  q4h 
or  more 

THEN:  Cptpointl  is  given  the  value  CptpointD  ♦  2 
Rule  Number:  25 

IF:  Patient  order  For  tilt  test  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  26 

IF:  Patient  order  For  post-op/post-partum/post-newborn 
vital  signs  is:  Post-op 

THEN:  CptpaintH  is  given  the  value  Cptpointl  *  6 
Rule  Number:  27 

IF:  Patient  order  Far  post-op/post-partum/post-newborn 
vital  signs  is:  Post-partum 
THEN:  Cptpoint]  is  given  the  value  Cptpointl  ♦  6 

Rule  Number:  20 

IF:  Patient  order  For  past-op/post-partum/post-newborn 
vital  signs  is:  Past-newborn 
THEN:  Cptpointl  is  given  the  value  Cptpaint!  ♦  6 

Rule  Number:  29 

IF:  Patient  order  For  post-op/post-partum/post-newbarn 
vital  signs  is:  Not  ordered 
THEN:  CptpaintD  is  given  the  value:  no  points  awarded 

Rule  Number:  30 

IF:  Patient  order  For  intake  ft  output  is:  Intake  ft 
output  less  than  qBh  or  x  3 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  31 

IF:  Patient  order  For  intake  ft  output  is:  Intake  ft 

output  at  least  qBh  Cx  3],  but  less  than  q4h  Cx  6] 
THEN:  Cptpointl  is  given  the  value  Cptpointl  ♦  2 


113 


Rule  Number:  32 

IF:  Patient  order  for  intake  &  output  ie:  Intake  & 
output  q4h  or  x  6 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  4 
Rule  Number:  33 

IF:  Patient  order  for  intake  S  output  is:  Intake  & 
output  q2h  or  x  12 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  8 
Rule  Number:  34 

IF:  Patient  order  for  intake  &  output  is:  Intake  & 
output  qlh  or  x  24 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  16 
Rule  Number:  35 

IF:  Patient  order  for  intake  &  output  is:  Not  ordered 
THEN:  Cptpointl]  is  given  the  value:  no  points  auiarded 

Rule  Number:  36 

IF:  Patient  order  for  circulation  checks  is:  Circulation 
checks  less  than  q2h  or  x  12 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  37 

IF:  Patient  order  for  circulation  checks  is:  Circulation 
checks  q2h  or  x  12 

THEN:  Cptpointl  is  given  the  value  Cptpointl  ♦  2 
Rule  Number:  38 

IF:  Patient  order  far  circulation  checks  is:  Circulation 
checks  qlh  or  x  24 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +•  4 
Rule  Number:  39 

IF:  Patient  order  for  circulation  checks  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  40 

IF:  Patient  order  for  neuro  checks  is:  Neuro  checks  less 
than  q4h  or  x  6 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 
Rule  Number:  41 

IF:  Patient  order  for  neuro  checks  is:  Neuro  checks 
q4h  or  x  6 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  3 


Rule  Number:  42 

IF:  Patient  order  for  neuro  checks  is:  Neuro  checks 
q2h  or  x  12 

THEN:  CptpointD  is  given  the  value  CptpointD  +  6 
Rule  Number:  43 

IF:  Patient  order  for  neuro  checks  is:  Neura  checks 
qlh  or  x  24 

THEN:  CptpointD  is  given  the  value  CptpointD  •*-  12 
Rule  Number:  44 

IF:  Patient  order  for  neuro  checks  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  45 

IF:  Patient  order  for  CUP  manual  readings  is:  CUP  manual 
readings  less  than  q2h  or  x  12 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  46 

IF:  Patient  order  far  CUP  manual  readings  is:  CUP  manual 
readings  q2h  or  x  12 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 
Rule  Number:  47 

IF:  Patient  order  far  CUP  manual  readings  is:  CUP  manual 
readings  qlh  or  x  24 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
Rule  Number:  48 

IF:  Patient  order  far  CUP  manual  readings  is:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number.  48 

IF:  Patient  order  Far  ICP  manual  readings  is:  ICP  manual 
readings  less  than  q2h  or  x  12 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  50 

IF:  Patient  order  Far  ICP  manual  readings  is:  ICP  manual 
readings  q2h  or  x  12 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  2 
Rule  Number:  51 

IF:  Patient  order  for  ICP  manual  readings  is:  ICP  manual 
readings  qlh  or  x  24 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  4 


Rule  Number:  52 

IF:  Patient  order  for  ICP  manual  readings  is:  Not 
ordered 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 
Rule  Number:  53 

IF:  Patient  order  for  fundus  checks  is:  Fundus  checks 
less  than  q2h  or  x  12 

THEN:  Cptpointl  is  given  the  value.-  no  points  awarded 
Rule  Number:  54 

IF:  Patient  order  for  fundus  checks  is:  Fundus  checks 
q2h  or  x  12 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  2 
Rule  Number:  55 

IF:  Patient  order  for  fundus  checks  is:  Fundus  checks 
qlh  or  x  24 

THEN:  Cptpairtl  is  given  the  value  Cptpointl  +  4 
Rule  Number:  56 

IF:  Patient  order  for  fundus  checks  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  57 

IF:  Patient  order  for  transcutaneous  monitor  is: 
transcutaneous  monitor 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  6 
Rule  Number:  58 

IF:  Patient  order  for  transcutaneous  monitor  is:  Not 
ordered 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 
Rule  Number:  59 

IF:  Patient  order  for  an  A-line  set-up  is:  A-line  set-up 
THEN:  Cptpointl  is  given  the  value  Cptpointl  +  4 

Rule  Number:  60 

IF:  Patient  order  For  an  A-line  set-up  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  61 

IF:  Patient  order  for  an  ICP  monitor  set-up  is:  ICP 
monitor  set-up 

THEN:  Cptpointl  is  given  thB  value  Cptpointl  +  4 


Rule  Number:  62 

IF:  Patient  order  For  an  ICP  monitor  set-up  is:  Not 
ordered 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  63 

IF:  Patient  order  Far  Swan  Ganz  set-up  is:  Swan  Ganz 
S- t-up 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  *  4 
Rule  Number:  64 

IF:  Patient  order  For  Swan  Ganz  set-up  is:  Not  ordered 
THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  65 

IF:  Patient  order  For  A-line  reading  is:  A-line  reading 
less  than  q2h  or  x  12 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  66 

IF:  Patient  order  Far  A-line  reading  is:  A-line  reading 
q2h  or  x  12 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  2 
Rule  Number:  67 

IF:  Patient  order  For  A-line  reading  is:  A-line  reading 
qlh  or  x  24 

THEN.-  Cptpoint]  is  given  the  valuB  Cptpoint]  +  4 
Rule  Number:  68 

IF:  Patient  order  Far  A-line  reading  is:  Not  ordered 
THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  69 

IF:  Patient  order  For  ICP  monitor  reading  is:  ICP 
monitor  reading  less  than  q2h  or  x  12 
THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  70 

IF:  Patient  order  For  ICP  monitor  reading  is:  ICP 
monitor  reading  q2h  or  x  12 
THEN:  Cptpoint]  is  given  thB  value  Cptpoint]  2 

Rule  Number:  71 

IF:  Patient  order  For  ICP  monitor  reading  is:  ICP 
monitor  reading  qlh  or  x  24 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  4 


Rule  Number:  72 

IF:  Patient  order  for  ICP  monitor  reading  is:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  73 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 
wedge  reading  af  less  than  q4h  or  x  6 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  74 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 
wedge  reading  of  q4h  or  x  6 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  75 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 
wedge  reading  af  q2h  or  x  12 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  75 

IF:  Patient  order  for  PAP/PA  wedge  reading  is:  PAP/PA 
wedge  reading  of  qlh  or  x  24 

THEN:  CptpointD  is  given  the  value  CptpointD  +  9 

Rule  Number:  77 

IF:  Patient  order  for  PAP/PA  wedge  reading  i3:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  78 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 
less  than  TID  or  x  3 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  79 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 
at  least  TID  Cx  3D  but  less  than  q4h  Cx  6D 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  80 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 
q4h  or  x  5 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  4 

Rule  Number:  91 

IF:  Patient  order  far  cardiac  output  is:  Cardiac  output 
q2h  or  x  12 

THEN:  CptpointD  is  given  the  value  CptpointD  -*■  8 


Rule  Number:  B2 

IF:  Patient  order  for  cardiac  output  is:  Cardiac  output 
qlh  or  x  24 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  16 
Rule  Number:  83 

IF:  Patient  order  Far  cardiac  output  is:  Not  ordered 

THEN:  Cptpaint]  is  given  the  value.-  no  points  awarded 

Rule  Number:  B4 

IF:  Patient  order  for  ADL  is:  Inf ant/taddler  care 
[“<  5  years] 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  6 
Rule  Number:  B5 

IF:  Patient  order  for  ADL  is:  Self/minimal  care  Cadult 
or  child  >  5  years] 

THEN:  Cptpoint]  is  given  the  value  Cptpaint]  +  2 
Rule  Number:  86 

IF:  Patient  order  for  ADL  is:  Assisted  care  C>  5  years] 
positions  self 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  6 
Rule  Number:  87 

IF:  Patient  order  far  ADL  is:  Complete  care  C>  5  years] 
assists  with  positioning 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  14 
Rule  Number:  B8 

IF:  Patient  order  far  ADL  is:  Total  care  C>  5  years] 
position  and  skin  care  q2h 

THEN:  Cptpoint]  is  given  ths  value  Cptpoint]  +  32 

Rule  Number:  B9 

IF:  Patient  order  for  extra  linen  change  and  partial 
bath  is:  Extra  linen  and  partial  bath  less  than  2x 
per  shift 

THEN:  Cptpoint]  is  given  the  value:  no  paints  awarded 
Rule  Number:  30 

IF:  Patient  order  for  extra  linen  change  and  partial 
bath  is:  Extra  linen  and  partial  bath  2x  per  shift 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  4 

Rule  Number:  31 

IF:  Patient  order  for  extra  linen  change  and  partial 
bath  is:  Extra  linen  and  partial  bath  4x  per  shift 

THEN:  Cptpoint]  is  given  the  value  Cptpaint]  +  8 


Rule  Number.-  92 

IF:  Patient  order  for  extra  linen  change  and  partial 
bath  is:  Extra  linen  and  partial  bath  8x  per  shift 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  16 

Rule  Number:  93 

IF:  Patient  order  for  extra  linen  change  and  partial 
bath  is:  Not  ordered 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  94 

IF:  Patient  order  for  turning  frame  is:  Turning  frame 
less  than  q2h 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  95 

IF:  Patient  order  for  turning  frame  is:  Turning  frame 
q2h  or  x  12 

THEN:  Cptpoint]  is  given  the  valuB  Cptpoint]  +  14 
Rule  Number:  96 

IF:  Patient  order  for  turning  framB  is:  Turning  frame 
qlh  or  x  24 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  26 
Rule  Number:  97 

IF:  Patient  order  for  turning  frame  is:  Not  ordered 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  96 

IF:  Patient  order  for  peds  recreation/observation  is: 
Peds  recreatian/observation  -  0-12  yrs  Cexc  NBN1 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  8 

Rule  Number:  99 

IF:  Patient  order  far  peds  recreat ion/observatian  is: 
Not  ordered 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  100 

IF:  Patient  order  for  tube  feedings  is.-  Tube  feedings 
continuous  --  less  than  1  bag  per  24  hours 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  101 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 
continuous  —  1  bag  per  24  hours 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  2 


Rule  Number:  102 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 
continuous  —  2  bag  per  24  hours 
THEN:  Cptpointl  is  given  the  value  Eptpaint3  +  4 

Rule  Number:  103 

IF:  Patient  order  for  tube  feedings  is.-  Tube  feedings 
continuous  --  3  bag  per  24  hours 
THEN:  Cptpointl  is  given  the  value  Cptpaint3  E 

Rule  Number:  104 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 
continuous  —  4  bag  per  24  hours 
THEN:  Cptpointl  is  given  the  value  CptpointD  +  8 

Rule  Number:  105 

IF:  Patient  order  far  tube  feedings  is:  Tube  feedings 
continuous  —  B  bag  per  24  hours 
THEN:  Cptpaintl  is  given  the  value  CptpointJ  +  12 

Rule  Number:  106 

IF:  Patient  order  for  tube  feedings  is.-  Tube  Feedings 
continuous  —  12  bag  per  24  hours 
THEN:  Cptpointl  is  given  the  value  CptpointD  +  24 

Rule  Number:  107 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 
continuous  —  24  bag  per  24  hours 
THEN:  Cptpaintl  is  given  the  value  Cptpointl  +  48 

Rule  Number:  108 

IF:  Patient  order  for  tube  Feedings  is:  Tube  feedings 
Cbolusl  less  than  q4h  or  x  6 
THEN:  CptpaintJ  is  given  the  value:  no  points  awarded 

Rule  Number:  109 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 
Cbolusl  q4h  or  x  E 

THEN:  Cptpaintl  is  given  the  value  CptpointD  +  5 

Rule  Number:  110 

IF:  Patient  order  for  tube  feedings  is:  Tube  feedings 
Cbolusl  q2h  or  x  12 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  10 


Rule  Number:  111 

IF:  Patient  order  For  tube  feedings  is:  Tube  feedings 
CbolusD  qlh  or  x  24 

THEN:  Cptpoint3  is  given  the  value  Cptpaintl  +  20 


Rule  Number:  112 

IF:  Patient  order  for  tube  feedings  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  113 

IF:  Patient  order  for  spoon  feedings  is:  Adult  meals 
>  5  years  C spoon  feed  x  33 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  114 

IF:  Patient  order  for  spoon  feedings  is:  Child  meals 
■<  5  years  C spoon  feed  x  33 
THEN:  CptpointD  is  given  the  value  Cptpaint3  +  10 

Rule  Number:  115 

IF:  Patient  order  for  spoon  feedings  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  116 

IF:  Patient  order  for  infant/neonate  bottle  feeding  is 
Infant/neonate  bottle  x  1  feeding 
THEN:  Cptpaint]  is  given  the  value  CptpointD  +  2 

Rule  Number:  117 

IF:  Patient  order  for  inf ant/neonate  bottle  feeding  is 
Inf ant/neonate  bottle  q4h  or  x  6 
THEN:  CptpointD  is  given  the  value  CptpointD  ♦  12 

Rule  Number:  118 

IF:  Patient  order  Far  infant/neonate  bottle  Feeding  is 
Inf ant/neonate  battle  q2h  or  x  12 
THEN:  CptpointD  is  given  the  value  CptpointD  +  24 

Rule  Number:  113 

IF:  Patient  order  for  infant/neonate  bottle  feeding  is 
Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  120 

IF:  Patient  order  For  10  insertion  is:  10  insertion 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  121 

IF:  Patient  order  For  10  insertion  is.-  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  122 

IF:  Patient  order  for  NG  insertion  is:  NG  insertion 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 


Rule  Number:  123 

IF:  Patient  order  for  NG  insertion  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  124 

IF:  Patient  order  far  faley  insertion/straight 
catheterization  is:  Foley  insertion 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  125 

IF:  Patient  order  for  foley  insertion/straight 

catheterization  is:  straight  catheterizat  of  less 
than  3 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  126 

IF:  Patient  order  for  foley  insertion/straight 

catheterization  is:  straight  catheterizat  of  4  or 
more 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
Rule  Number:  127 

IF:  Patient  order  far  foley  insertion/straight 
catheterization  is:  Nat  ordered 
THEN:  CptpointD  is  given  the  value.-  no  points  awarded 

Rule  Number:  128 

IF:  Patient  order  for  EKG  rhythm  strip  is:  EKG  rhythm 
strip 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 
Rule  Number:  129 

IF:  Patient  order  far  EKG  rhythm  strip  is:  Nat  ordered 
THEN:  CptpointD  is  given  the  valuB:  no  points  awarded 

Rule  Number:  130 

IF:  PatiBnt  order  for  surgical  prep  is:  Surgical  prep 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  131 

IF:  Patient  order  for  surgical  prep  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  132 

IF:  Patient  order  for  enemas  is:  Enemas 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  133 

IF:  Patient  order  for  enemas  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 


Rule  Number:  134 

IF:  Patient  order  for  ace  urap/elastic  stockings  is: 
wrap 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  2 

Rule  Number:  135 

IF:  Patient  order  for  ace  urap/elastic  stackings  is: 
Elastic  stockings 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  136 

IF:  Patient  order  for  ace  urap/elastic  stockings  is: 
ordered 

THEN.-  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  137 

IF:  Patient  order  for  dressing  change  is:  Simple 
dressing  change  less  than  x  2  or  BID 
THEN:  CptpointD  is  given  the  value:  no  points  auarded 

Rule  Number:  13B 

IF:  Patient  order  for  dressing  change  is:  Simple 
dressing  change  x  2  or  BID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  133 

IF:  Patient  order  for  dressing  change  is:  Simple 
dressing  change  x  3  or  TID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  3 

Rule  Number:  140 

IF:  Patient  order  for  dressing  change  is:  Simple 
dressing  change  x  4  or  QID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  141 

IF:  Patient  order  for  dressing  change  is:  Simple 
dressing  change  x  6  or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  142 

IF:  Patient  order  for  dressing  change  is:  Simple 
dressing  change  x  12  or  q2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  12 

Rule  Number:  143 

IF:  Patient  order  far  dressing  change  is:  Simple 
dressing  change  x  24  or  qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  24 


Rule  Number:  144 

IF:  Patient  order  for  dressing  change  is:  Complex 
dressing  change  x  1 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  145 

IF:  Patient  order  for  dressing  change  is:  Complex 
dressing  change  x  2  or  ql2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  B 

Rule  Number:  14B 

IF:  Patient  order  for  dressing  change  is:  Complex 
dressing  change  x  3  or  TID 
THEN:  CptpointD  is  given  the  value  CptpointD  +  12 

Rule  Number:  147 

IF:  Patient  order  for  dressing  change  is:  Complex 
dressing  change  x  4  or  QID 
THEN:  CptpointD  is  given  the  value  CptpointD  IB 

Rule  Number:  140 

IF:  Patient  order  far  dressing  change  is:  Complex 
dressing  change  x  B  or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  24 

Rule  Number:  143 

IF:  Patient  crder  For  dressing  change  is:  Complex 
dressing  change  x  12  or  q2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4B 

Rule  Number:  150 

IF:  Patient  order  far  dressing  change  is:  Complex 
dressing  change  x  24  or  qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  SB 

Rule  Number:  151 

IF:  Patient  order  for  dressing  change  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number.-  152 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 
care  less  than  x  2  or  BID 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  153 

IF:  Patient  order  for  tube  care  Cnot  trachD  is:  Tube 
care  x  2  or  BID 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 


Rule  Number.-  154 

IF:  Patient  order  For  tube  care  Cnot  trachD  is:  Tube 
care  x  3  or  TID 

THEN:  CptpointD  is  given  the  value  CptpointD  +  3 
Rule  Number:  155 

IF:  PatiBnt  order  For  tube  care  Cnot  trachD  is:  Tube 
care  x  4  or  QID 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
Rule  Number:  156 

IF:  Patier-  order  For  tube  care  Cnot  trachD  is:  Tube 
care  x  6  or  q4h 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  6 
Rule  Number:  157 

IF:  Patient  order  For  tube  care  Cnot  trachD  is:  Tube 
care  x  12  or  q2h 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  12 
RuIb  Number:  158 

IF:  Patient  order  Far  tube  care  Cnot  trachD  is:  Tube 
care  x  24  ar  qlh 

THEN:  CptpointD  is  given  the  value  CptpointD  +  24 
Rule  Number:  159 

IF:  Patient  order  For  tube  care  Cnot  trachD  is:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  160 

IF:  Patient  order  For  Foley  care  is:  Foley  care  less 
than  x  2  or  BID 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  161 

IF:  Patient  order  Far  Foley  care  is:  Foley  care  x  2  or 
BID 

THEN:  CptpointD  is  given  the  value  CptpointD  +  2 
Rule  Number:  162 

IF:  Patient  order  For  Foley  care  is:  Foley  care  x  3  or 
TID 

THEN:  CptpointD  is  given  the  value  CptpointD  +  3 
Rule  Number:  163 

IF:  Patient  order  Far  Foley  care  is:  Foley  care  x  4  or 
QID 

THEN:  CptpointD  is  given  the  value  CptpointD  4 


Rula  Number:  164 

IF:  Patient  orcjr  far  Faley  care  is:  Foley  care  *  fa  ai 
q4h 

THEN:  CptpointD  is  given  the  value  Cptpomt]  ♦  6 
Rule  Number:  165 

IF:  Patient  order  for  Foley  care  is.  Foley  care  *  :8  or 
q2h 

THEN:  CptpointD  is  given  the  value  Cptpomt]  ♦  18 
Rule  Number.-  166 

IF:  Patient  order  far  Foley  care  is:  Faley  care  x  84  or 
qlh 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  84 
Rule  Number:  167 

IF:  Patient  order  for  Foley  care  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value-,  no  points  awarded 

Rule  Number:  168 

IF:  Patient  order  for  S  &  A  is:  S  &  ft  x  1  or  QD 
THEN:  CraupaintD  is  given  the  value  CroupointD  ♦  1 

Rule  Number:  169 

IF:  Patient  order  for  S  8  ft  is.-  S  8  ft  x  2  or  BID 
THEN:  CroupointD  is  given  the  value  Croupomt]  «■  5 

Rule  Number:  170 

IF:  Patient  order  For  S  8  ft  is;  S  8  ft  x  3  or  TID 
THEN:  CraupaintD  is  given  the  value  CroupointD  ♦  3 

Rule  Number:  171 

IF:  Patient  order  for  S  8  ft  is:  S  8  ft  x  4  or  QID 
THEN:  CroupaintD  is  given  the  value  CroupointD  ♦  4 

Rule  Number:  172 

IF:  Patient  order  for  S  8  ft  is:  5  8  ft  x  6  or  q4h 
THEN:  CroupointD  is  given  the  value  CroupamtD  +  6 

Rule  Number:  173 

IF:  Patient  order  far  S  8  ft  is:  S  8  ft  x  12  or  q2h 
THEN:  CroupaintD  is  given  the  value  Croupomt]  «■  12 

Rule  Number:  174 

IF:  Patient  order  for  S  8  ft  is.-  S  8  ft  x  24  or  qlh 
THEN:  CroupointD  is  given  the  value  CroupointD  +  24 

Rule  Number.-  175 

IF:  Patient  order  for  S  8  ft  is:  Nat  ordered 

THEN:  CroupointD  is  given  the  value:  no  points  awarded 
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Rule  Number:  176 

IF  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  1  or  QD 
THEN:  Croupoint]  is  given  the  value  Croupoint]  +  1 

Rule  Number:  177 

IF  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  2  or  BID 
THEN.  Croupoint]  is  given  the  value  Croupoint]  +  2 

Rule  Number;  17B 

IF  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  3  or  TID 
THEN.  Croupoint]  is  given  the  value  Croupoint]  +  3 

Rule  Number:  179 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  4  or  QID 
THEN:  Croupoint]  is  given  the  value  Croupoint]  ♦  4 

Rule  Number:  180 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  6  or  q4h 
THEN:  Croupoint]  is  given  the  value  Croupoint]  +  6 

Rule  Number:  181 

IF:  Patient  order  far  Sp  Gr  is:  Sp  Gr  x  12  or  q2h 
THEN:  Croupoint]  is  given  the  value  Croupoint]  +  12 

Rule  Number:  182 

IF:  Patient  order  for  Sp  Gr  is:  Sp  Gr  x  24  or  qlh 
THEN:  Croupoint]  is  given  the  value  Croupoint]  «■  24 

Rule  Number:  183 

IF:  Patient  order  for  Sp  Gr  is:  Not  ordered 

THEN:  Croupoint]  is  given  the  value:  no  points  auardsd 

Rule  Number:  184 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  1 
or  QD 

THEN:  Croupoint]  is  given  the  value  Croupoint]  +  1 
Rule  Number:  185 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stool3  x  2 
or  BID 

THEN:  Croupoint]  is  given  the  value  Croupoint]  +  2 
Rule  Number:  186 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  3 
or  TID 

THEN:  Croupoint]  is  given  the  value  Lroupoint]  3 
Rule  Number:  187 

IF:  Patient  order  for  Guiac  stools  is:  Guiac  stools  x  4 


or  010 

THEN:  Croupoint]  is  given  the  value  Croupoint]  ♦  4 
Rule  Number.-  18B 

IF:  Patient  order  For  Guiac  stools  is:  Guiac  stools  x  6 
or  q4h 

THEN:  Croupoint]  is  given  the  value  Croupoint]  +  B 
Rule  Number:  189 

IF:  Patient  order  For  Guiac  stools  is:  Guiac  stools  x  12 
or  q2h 

THEN:  Craupoint]  is  given  the  value  Croupoint]  ♦  12 
Rule  Number:  190 

IF:  Patient  order  For  Guiac  stools  is:  Guiac  stools  x  24 
or  qlh 

THEN:  Croupoint]  is  given  the  value  Croupoint]  +  24 
Rule  Number:  191 

IF:  Patient  order  Far  Guiac  stools  is:  Not  ordered 
THEN:  Croupoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  192 

IF:  Patient  order  For  spin  HCT  is:  Spin  HCT  x  1  or  QD 
THEN:  Craupoint]  is  given  the  value  Croupoint]  +  1 

Rule  Number:  193 

IF:  Patient  order  Far  spin  HCT  is:  Spin  HCT  x  2  Dr  BID 
THEN.-  Croupoint]  is  given  the  value  Croupoint]  +  2 

Rule  Number:  194 

IF:  Patient  order  Far  spin  HCT  is:  Spin  HCT  x  3  or  TID 
THEN:  Craupoint]  is  given  the  value  Craupoint]  +  3 

Rule  Number:  195 

IF:  Patient  order  Far  spin  HCT  is:  Spin  HCT  x  4  or  QID 
THEN:  Craupoint]  is  given  the  value  Croupoint]  +•  4 

Rule  Number:  196 

IF:  Patient  order  For  spin  HCT  is:  Spin  HCT  x  G  or  q4h 
THEN:  Croupoint]  is  given  the  value  Craupoint]  ♦  6 

Rule  Number:  197 

IF:  Patient  order  For  spin  HCT  is:  Spin  HCT  x  12  rr  q2h 
THEN:  Croupoint]  is  given  the  value  Croupoint]  +  12 

Rule  Number:  19B 

IF:  Patient  order  Far  spin  HCT  is:  Spin  HCT  x  24  or  qlh 
THEN:  Croupoint]  is  given  the  value  Croupoint]  +  24 


Rule  Number:  1S9 

IF:  Patient  order  for  spin  HCT  is:  Not  ordered 

THEN:  Croupoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  200 

IF:  Patient  order  for  lab  studies  is:  Lab  studies  less 
than  x  6 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  201 

IF:  Patient  order  for  lab  studies  is:  Lab  studies  x  6  or 
q4h 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  2 
Rule  Number-.  202 

IF:  Patient  order  for  lab  studies  is:  Lab  studies  x  12 
or  q2h 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  4 
Rule  Number:  203 

IF:  Patient  order  for  lab  studies  i3:  Lab  studies  x  24 
or  qlh 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  0 
Rule  Number:  204 

IF:  Patient  order  for  lab  studies  is:  Not  ordered 
THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  205 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks,  less 
than  x  3 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  206 

IF:  Patient  order  far  ABG  sticks  is:  ABG  sticks,  at 
least  x  3,  but  less  than  x  6 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  2 

Rule  Number:  207 

IF:  Patient  order  for  0BG  sticks  is:  ABG  sticks  x  6 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  4 

Rule  Number:  20B 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks  x  12 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  0 

Rule  Number:  209 

IF:  Patient  order  for  ABG  sticks  is:  ABG  sticks  x  24 
THEN:  Cptpoint]  is  given  thB  value  Cptpoint]  +  16 


Rule  Number:  210 

IF:  Patient  order  For  ABG  sticks  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  211 

IF:  Patient  order  far  blood  culttures  is:  Blood  cultures 
less  than  x  3 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 
Rule  Number:  212 

IF:  Patient  order  for  blood  culttures  is:  Blood  cultures 
at  least  x  3  but  less  than  x  6 
THEN:  Cptpointl  is  given  the  value  Cptpoint!  +  2 

Rule  Number:  213 

IF:  Patient  order  far  blood  culttures  is:  Blood  cultures 
x  6 

THEN:  Cptpointl  is  given  the  value  CptpointD  +  4 
Rule  Number:  214 

IF:  Patient  order  far  blood  culttures  is:  Blood  cultures 
x  12 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  0 
Rule  Number:  215 

IF:  Patient  order  for  blood  culttures  is:  Blood  cultures 
x  24 

THEN:  Cptpaint!  is  given  the  value  Cptpointl  +  15 
Rule  Number:  215 

IF:  Patient  order  for  blood  culttures  is:  Not  ordered 
THEN:  Cptpaintl  is  given  the  value:  no  points  awarded 

Rule  Number:  217 

IF:  Patient  order  for  medications  is:  Medications  less 
than  q8h  [exclude  IU3 

THEN:  Cptpointl  is  given  the  valuB:  no  points  awarded 
Rule  Number:  21B 

IF:  Patient  order  for  medications  is:  dedications  q3h  - 
qBh  Cexclude  IY3  -  up  to  12  trips 
THEN:  Cptpointl  is  given  the  valuB  [ptpointl  -*•  2 

Rule  Number:  219 

IF:  Patient  order  For  medications  is:  Medications  q2h  or 
mere  Cexclude  IU3  -  >  12  trips 
THEN:  CptpointD  is  given  the  value  Cptpointl  +  4 
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Rule  Number:  220 

IF:  Patient  order  for  medications  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  221 

IF:  Patient  order  for  irrigations  is:  Irrigations  x  4 
CQIDD  or  less 

THEN:  CptpointJ  is  given  the  value  CptpaintJ  +  2 
Rule  Number:  222 

IF:  Patient  order  for  irrigations  is:  Irrigations  x  6 
or  q4h 

THEN:  Cptpointl  is  given  the  value  CptpointD  +  3 
Rule  Number:  223 

IF:  Patient  order  for  irrigations  is:  Irrigations  x  12 
or  q2h 

THEN:  Cptpointl  is  given  the  value  CptpointD  +  6 
Rule  Number:  224 

IF:  Patient  order  For  irrigations  is:  Irrigations  x  24 
ar  qlh 

THEN:  Cptpaintl  is  given  the  value  CptpointD  +  12 
Rule  Number:  225 

IF:  Patient  order  far  irrigations  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  226 

IF:  Patient  order  for  instillations  is:  Instillations 
x  4  CQIDD  or  less 

THEN:  Cptpaintl  is  given  the  value  CptpointD  +  2 
Rule  Number:  227 

IF:  Patient  order  for  instillations  is:  Instillations 
x  6  or  q4h 

THEN:  CptpaintD  is  given  the  value  CptpointD  +  3 
Rule  Number:  228 

IF:  Patient  ordBr  For  instillations  is:  Instillations 
x  12  or  q2h 

THEN:  CptpointD  is  given  the  value  CptpointD  +  6 
Rule  Number:  229 

IF:  Patient  order  for  instillations  is:  Instillations 
x  24  or  qlh 

THEN:  Cptpointl  is  given  the  value  CptpointD  +  12 
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Rule  Number:  £30 

IF:  Patient  order  for  instillations  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  £31 

IF:  Patient  order  for  restraints  is:  £  point 
THEN:  Cptpointl  is  given  the  value  Cptpaintl  +  £ 

Rule  Number:  £3£ 

IF:  Patient  order  for  restraints  is:  4  point 
THEN:  Cptpointl  is  given  the  value  Cptpaintl  +  £ 

Rule  Number:  £33 

IF:  Patient  order  for  restraints  is:  Posey 
THEN:  Cptpaintl  is  given  the  value  Cptpointl  +  £ 

Rule  Number:  £34 

IF:  Patient  order  for  restraints  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  £35 

IF:  Patient  order  for  assist  to  chair/stretcher  i  . : 

Assist  to  chair  less  than  x  3 
THEN:  Cptpointl  is  given  the  valuB:  no  points  awarded 

Rule  Number:  £35 

IF:  Patient  order  far  assist  to  chair/stretcher  is: 

Assist  to  stretcher  less  than  x  3 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  £37 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  by  at  least  3  but  less  than  6 
THEN:  Cptpoint!  is  given  the  value  Cptpointl  +  £ 

Rule  Number:  £38 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  x  5  or  q4h 
THEN:  Cptpointl  is  given  the  value  Cptpomtl  4 

Rule  Number:  £39 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Assist  to  stretcher  x  1£  or  q£h 
THEN:  Cptpoint!  is  given  the  value  CptpointD  +  8 

RuIb  Number:  £40 

IF:  Patient  order  far  assist  to  chair/stretcher  is: 

Assist  to  stretcher  x  £4  or  qlh 
THEN:  Cptpoint]  is  given  the  value  CptpamtD  15 


Rule  Number:  241 

IF:  Patient  order  for  assist  to  chair /stretcher  is 
Assist  to  chair  at  least  x  3  but  less  than  x  6 
THEN:  Cptpointl  is  given  the  value  CptpointD  +  2 

Rule  Number:  242 

IF:  Patient  order  for  assist  to  chair/stretcher  is 
Assist  to  chair  x  6  or  q4h 
THEN:  Cptpaintl  is  given  the  value  Cptpointl  +  4 

Rule  Number:  243 

IF:  Patient  order  for  assist  to  chair/stretcher  is 
Assist  to  chair  x  12  or  q2h 
THEN:  Cptpoint!  is  given  the  value  Cptpointl  -*•  B 

Rule  Number:  244 

IF:  Patient  order  For  assist  to  chair/stretcher  is 
Assist  to  chair  x  24  or  qlh 
THEN:  CptpointD  is  given  the  value  Cptpointl  +  16 

Rule  Number:  245 

IF:  Patient  order  for  assist  to  chair/stretcher  is 
Ambulate  with  assistance  x  1 
THEN:  Cptpointl  is  given  the  value  CptpointD  +  2 

Rule  Number:  246 

IF:  Patient  order  far  assist  to  chair/3tretcher  is 
Ambulate  with  assistance  x  2 
THEN:  Cptpaintl  is  given  the  value  CptpointD  +  4 

Rule  Number:  247 

IF:  Patient  order  For  assist  to  chair/stretcher  is 
Ambulate  with  assistance  x  3 
THEN:  Cptpointl  is  given  the  value  Cptpoint!  ♦  6 

Rule  Number:  248 

IF:  Patient  order  For  assist  to  chair/stretcher  is 
Ambulate  with  assistance  x  4 
THEN:  Cptpointl  is  given  the  value  Cptpointl  +  B 

Rule  Number:  249 

IF:  Patient  order  far  assist  to  chair/stretchBr  is 
Ambulate  with  assistance  x  6 
THEN:  Cptpointl  is  given  the  value  Cptpaint!  +  12 

Rule  Number:  250 

IF:  Patient  order  for  assist  to  chair/stretcher  is 
Ambulate  with  assistance  x  12 
THEN:  CptpointD  is  givBn  the  value  Cptpaintl  +  24 


Rule  Number:  251 

IF:  Patient  order  for  assist  to  chair/stretcher  is: 

Ambulate  with  assistance  x  24 
THEN:  Cptpointl  is  given  the  value  Cptpointl  +  48 

Rule  Number:  252 

IF:  Patient  ordBr  for  assist  to  chair/stretcher  is:  Ni 
ordered 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 
Rule  Number:  253 

IF-.  Patient  order  for  infant  circumcision  care  is: 
Infant  circumcision  care 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  2 
Rule  Number:  254 

IF:  Patient  order  for  infant  circumcision  care  is:  Nai 
ordered 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 
Rule  Number:  255 

IF:  Patient  order  far  phototherapy  is:  Phototherapy 
THEN:  Cptpointl  is  given  the  value  Cptpointl  +  2 

Rule  Number:  256 

IF:  Patient  order  for  phototherapy  is:  Nat  ordered 
THEN:  Cptpointl  is  given  the  value:  no  paints  awarded 

Rule  Number:  257 

IF:  Patient  order  for  isolation  is:  Isolation  [change 
gown  and  gloves  less  than  x  B1 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  258 

IF:  Patient  order  for  isolation  is:  Isolation  Cnhange 
gown  and  gloves  x  8  or  morel 
THEN:  Cptpointl  is  given  the  value  [ptpoint]  +  2 

Rule  Number:  259 

IF:  Patient  order  for  isolation  is:  Not  ordered 
THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  260 

IF:  Patient  order  far  accompany  patient  off  ward  is: 

Accompany  patient  off  ward  for  less  than  15  min 
THEN:  Cptpointl  is  given  the  value:  no  paints  awarded 

Rule  Number:  261 

IF:  Patient  order  far  accompany  patient  off  ward  is: 


Accompany  patient  off  ward  for  15  to  30  min 

THEN:  Cptpaintl  is  given  the  value  Cptpointl  2 

Rule  Number:  265 

IF:  PatiBnt  order  for  accompany  patient  off  ward  is: 
Accompany  patient  off  ward  for  greater  than  30  min 

THEN:  Cptpointl  is  given  the  value  Cptpaintl  +  4 

Rule  Number:  263 

IF:  Patient  order  for  accompany  patient  off  ward  is:  Not 
ordered 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  264 

IF:  Patient  order  for  other  activities  is:  Other 
activities  requiring  less  than  15  minutes 

THEN:  Cptpaintl  is  given  the  value:  no  points  awarded 

Rule  Number:  265 

IF:  Patient  order  for  other  activities  is:  Other 
activities  requiring  15  to  30  minutes 

THEN:  Cptpointl  is  given  the  value  EptpointD  +  2 

Rule  Number:  266 

IF:  Patient  order  for  other  activities  is:  Other 
activities  requiring  30  min  to  1  hour 

THEN:  Cptpaintl  is  given  the  value  Cptpointl  +  4 

Rule  Number:  267 

IF:  Patient  order  for  other  activities  is:  Special 

procedures  >  1  hr  <  2  hr  C requiring  continuous  staff 
attendance! 

THEN:  Cptpaintl  is  given  the  value  [ptpointl  +  8 

Rule  Number:  268 

IF:  Patient  order  for  other  activities  is:  Not  ordered 

THEN:  Cptpaintl  is  given  the  value:  no  points  awarded 

Rule  Number:  269 

IF:  Patient  order  for  chest  tube  insertion  is:  Chest 
tube  insertion 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  4 

Rule  Number:  270 

IF:  Patient  order  for  chest  tube  insertion  is:  Nat 
ordered 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 

Rule  Number:  271 

IF:  Patient  order  for  lumbar  puncture  is:  Lumbar 


puncture 

THEN:  CptpointD  is  given  the  value  CptpointD  4 
Rule  Number:  272 

IF:  Patient  order  far  lumbar  puncture  is:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  273 

IF:  Patient  order  far  thoracentesis  is:  Thoracentesis 
ordered 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
Rule  Number:  274 

IF:  Patient  order  for  thoracentesis  is:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  275 

IF:  Patient  order  for  paracentesis  is:  Paracentesis 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  275 

IF:  Patient  order  For  paracentesis  is:  Not  ordered 
THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  277 

IF:  Patient  order  for  range  of  motion  is:  Range  of 
motion  exercises  less  than  x  3  or  TID 
THEN:  CptpointD  is  given  the  value.-  no  points  awarded 

Rule  Number:  270 

IF:  Patient  order  far  range  of  motion  is:  Range  of 
motion  exercises  at  least  x  3  but  less  than  x  6 
THEN:  CptpointD  is  given  the  value  CptpointD  +  4 

Rule  Number:  279 

IF:  Patient  order  for  range  of  motion  is:  Range  of 
motion  exercises  x  5  or  q4h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  9 

Rule  Number:  200 

IF:  Patient  order  far  range  of  motion  is:  Range  of 
motion  exercises  x  12  or  q2h 
THEN:  CptpointD  is  given  the  value  CptpointD  +  16 

Rule  Number:  201 

IF:  Patient  order  far  range  of  motion  is:  Range  of 
motion  exercises  x  24  or  qlh 
THEN:  CptpointD  is  given  the  value  CptpointD  +  32 
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Rule  Number:  282 

IF:  Patient  order  Far  range  of  motion  is:  Not  ordered 
THEN:  Cptpoint!  is  given  the  value:  no  points  awarded 

Rule  Number.-  2B3 

IF:  Patient  order  to  transfer  in-house  or  new  admission 
is:  Transfer  in-house  Cassess  and  orient! 

THEN:  Cptpoint!  is  given  the  value  Cptpoint!  +  4 

RuIb  Number:  284 

IF:  Patient  order  to  transfer  in-house  or  new  admission 
is:  New  admission  Cassess  and  orient! 

THEN:  Cptpoint!  is  given  the  value  Cptpaint!  +  12 

Rule  Number:  285 

IF:  Patient  order  to  transfer  in-house  or  new  admission 
is:  Nat  ordered 

THEN;  Cptpoint!  is  givBn  thB  value:  no  points  awarded 
Rule  Number:  286 

IF:  Patient  order  far  02  therapy  or  oxyhood  is:  Oxygen 
therapy 

THEN:  Cptpoint!  is  given  the  value  Cptpoint!  +  2 
Rule  Number:  287 

IF:  Patient  order  far  02  therapy  or  oxyhood  is:  Oxyhood 
THEN:  Cptpoint!  is  given  the  value  Cptpoint!  +  2 

Rule  Number:  288 

IF:  Patient  order  far  02  therapy  or  oxyhood  is:  Not 
ordered 

THEN:  Cptpoint!  is  given  the  value:  no  points  awarded 
Rule  Number:  289 

IF:  Patient  order  For  incentive  spirometer  is:  Incentive 
spirometer  less  than  q4h 

THEN:  Cptpoint!  is  given  the  valuB:  no  points  awarded 
Rule  Number:  290 

IF:  Patient  order  For  incentive  spirometer  is:  Incentive 
spirometer  q4h 

THEN:  Cptpoint!  is  given  the  value  Cptpoint!  +  2 
Rule  Number.-  291 

IF:  Patient  order  For  incentive  spirometer  is:  Incentive 
spirometer  q2h 

THEN:  Cptpoint!  is  given  the  value  Cptpoint!  +  4 
Rule  Number:  292 

IF:  Patient  ordBr  for  incentive  spirometer  is:  Incentive 


spirometer  qlh 

THEN:  Cptpointl  is  given  the  value  CptpointU  +  B 
Rule  Number:  233 

IF:  Patient  order  for  incentive  spirometer  is:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  294 

IF:  Patient  order  for  C&DB  is:  C&DB  less  than  q4h 
THEN:  Cptpointl  is  given  the  value:  no  paints  awarded 

Rule  Number:  295 

IF:  Patient  order  for  C&DB  is.-  C&DB  q4h 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  2 

Rule  Number:  296 

IF:  Patient  order  for  C&DB  is:  C&DB  q2h 

THEN:  Cptpointl  is  given  the  value  CptpointD  +  4 

Rule  Number:  297 

IF:  Patient  order  for  C&DB  is:  C&DB  qlh 

THEN:  Cptpaintl  is  given  the  value  CptpointD  +  B 

Rule  Number:  29B 

IF:  Patient  order  for  C&DB  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  299 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 
maximist  less  than  BID  or  x  2 
THEN:  CptpaintD  is  given  the  valuB:  no  points  awarded 

Rule  Number:  300 

IF:  Patient  order  far  IPPB  or  maximist  is:  IPPB  or 
maximist  BID  or  x  2 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  2 
Rule  Number:  301 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 
maximist  TID  or  x  3 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  3 
Rule  Number:  302 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 
maximist  QID  or  x  4 

THEN:  CptpointD  is  given  the  value  Cptpointl  +  4 
Rule  Number:  303 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 


maximist  q4h  or  x  B 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  6 
Rule  Number:  304 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 
maximist  q2h  or  x  12 

THEN:  CptpointD  is  given  the  value  CptpointD  +  12 
Rule  Number:  305 

IF:  Patient  order  for  IPPB  or  maximist  is:  IPPB  or 
maximist  qlh  or  x  24 

THEN:  CptpointD  is  given  the  value  CptpointD  +  24 
Rule  Number:  30B 

IF:  Patient  order  for  IPPB  or  maximist  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  307 

IF:  Patient  order  for  croup  tent  or  mist  tent  is:  Croup 
tent 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  B 
Rule  Number:  308 

IF:  Patient  order  For  croup  tent  or  mi3t  tent  is:  Hist 
tent 

THEN.-  CptpointD  is  given  the  value  CptpointD  +  8 
Rule  Number:  308 

IF:  Patient  order  for  croup  tBnt  or  mist  tent  is:  Not 
ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  310 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 
pulmonary  therapy  less  than  BID  or  x  2 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  311 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 
pulmonary  therapy  BID  or  x  2 

THIN :  CptpointD  is  given  the  value  CptpointD  +  2 

Rule  Number:  312 

IF:  Patient  order  For  chest  pulmonary  therapy  is:  Chest 
pulmonary  therapy  TID  or  x  3 

THEN:  CptpointD  is  given  the  value  CptpointD  +  3 

Rule  Number:  313 

IF:  Patient  order  For  chest  pulmonary  therapy  is:  Chest 


pulmonary  therapy  QID  or  x  4 

THEN:  Cptpaint]  is  given  the  value  Cptpoint]  +  4 

Rule  Number:  314 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 
pulmonary  therapy  q4h  or  x  6 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  6 

Rule  Number:  315 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 
pulmonary  therapy  q2h  or  x  12 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  *  12 

Rule  Number:  316 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Chest 
pulmonary  therapy  qlh  or  x  24 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  24 

Rule  Number:  317 

IF:  Patient  order  for  chest  pulmonary  therapy  is:  Not 
ordered 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  316 

IF:  Patient  order  for  suctioning  is:  Suctioning  less 
than  q4h  or  x  6 

THEN:  Cptpaint]  is  given  the  value:  no  points  awarded 
Rule  Number:  319 

IF:  Patient  order  for  suctioning  is:  Suctioning  q4h  or 
x  6 

THEN:  CptpaintD  is  given  the  value  Cptpaint]  +  2 
Rule  Number:  320 

IF:  Patient  order  For  suctioning  is:  Suctioning  q2h  or 
x  12 

THEN:  Cptpoint]  is  given  the  value  Cptpaint]  +  4 
Rule  Number:  321 

IF:  Patient  order  For  suctioning  is:  Suctioning  qlh  or 
x  24 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  B 
Rule  Number:  322 

IF:  Patient  order  For  suctioning  is:  Not  ordered 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  323 

IF:  Patient  order  For  trach  care  is:  Trach  care  les3 


than  x  3  or  TID 

THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 
Rule  Number:  324 

IF:  Patient  order  For  trach  care  is:  Trach  care  at  least 
TID  Cor  x  33  but  less  than  q4h  Cx  63 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  4 

Rule  Number:  325 

IF:  Patient  order  for  trach  care  is:  Trach  care  q4h  or 
x  6 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  8 
Rule  Number:  326 

IF:  Patient  order  for  trach  care  is:  Trach  care  q2h  or 
x  12 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  16 
Rule  Number:  327 

IF:  Patient  order  for  trach  care  is:  Trach  care  qlh  or 
x  24 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  32 
Rule  Number:  320 

IF:  Patient  order  for  trach  care  is:  Not  ordered 
THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  323 

IF:  Patient  order  Far  ventilator  is:  Uentilator 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  10 

Rule  Number:  330 

IF:  Patient  order  for  ventilator  is:  Not  ordered 
THEN:  Cptpoint]  is  given  the  value:  no  points  awarded 

Rule  Number:  331 

IF:  Patient  order  For  hanging  IU  bottles  is:  KUO  Cchange 
battle  BID  or  less] 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  +  4 
Rule  Number:  332 

IF:  Patient  order  for  hanging  IU  battles  is:  Simple 
Cchange  bottle  TID  or  QID3 
THEN:  Cptpoint]  is  given  the  value  Cptpoint]  •*-  6 

Rule  Number:  333 

IF:  Patient  order  for  hanging  IU  bottles  is:  Complex 
Cchange  bottle  q4h  or  more,  two  or  more  sites,  or 
multilumen  tube] 

THEN:  Cptpoint]  is  given  the  value  Cptpoint]  8 
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Rule  Number:  334 

IF:  Patient  order  for  hanging  10  battles  is:  Not  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  335 

IF:  Patient  order  for  heparin  lock  or  Broviac  cathether 
is:  Heparin  lock 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
Rule  Number:  335 

IF:  Patient  order  for  heparin  lock  or  Broviac  cathether 
is:  Broviac  catheter 

THEN:  CptpointD  is  given  the  value  CptpointD  ♦  4 
Rule  Number:  337 

IF:  Patient  order  for  heparin  lock  or  Broviac  cathether 
is:  Nat  ordered 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  338 

IF:  Patient  order  for  10  medications  is:  10  medications 
of  less  than  qBh  or  x  3 

THEN:  CptpointD  is  given  the  value:  no  points  awarded 
Rule  Number:  339 

IF:  Patient  order  for  10  medications  is-.  10  medications 
of  q8h  or  x  3 

THEN:  CptpointD  is  given  the  value  CptpointD  +  B 
Rule  Number:  340 

IF:  Patient  order  far  10  medications  is:  10  medications 
of  qBh  or  x  4 

THEN:  CptpointD  is  given  the  value  CptpointD  +  3 
Rule  Number:  341 

IF:  Patient  order  for  10  medications  is:  10  medications 
of  q4h  or  x  5 

THEN:  CptpointD  is  given  the  value  CptpointD  +  4 
Rule  Number:  342 

IF:  Patient  order  for  10  medications  is:  10  medications 
of  q2h  or  x  12 

THEN:  CptpointD  is  given  the  value  CptpointD  +  8 
Rule  Number:  343 

IF:  Patient  order  for  10  medications  is:  10  medications 
of  qlh  or  x  24 

THEN:  CptpointD  is  given  the  value  CptpointD  +  16 
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Rule  Number:  344 

IF:  Patient  order  for  IU  medications  is:  Not  ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  awarded 

Rule  Number:  345 

IF:  Patient  order  for  blood  products  is:  Blood  products 
x  1  unit 

THEN:  CptpointJ  is  given  the  value  CptpointJ  ♦  2 
Rule  Number:  345 

IF:  Patient  order  for  blood  products  is:  Blood  products 
x  2  unit 

THEN:  CptpointJ  is  given  the  value  CptpointJ  ♦  4 
Rule  Number:  347 

IF:  Patient  order  for  blood  products  is:  Blood  products 
x  3  unit 

THEN:  CptpointJ  is  given  the  value  CptpointJ  5 
Rule  Number:  34B 

IF:  Patient  order  far  blood  products  is:  Blood  products 
x  4  unit 

THEN:  CptpointJ  is  given  the  value  CptpointJ  +  0 
Rule  Number:  349 

IF:  Patient  order  for  blood  products  is:  Blood  products 
x  5  unit 

THEN:  CptpointJ  is  given  the  value  CptpointJ  +  12 
Rule  Number:  350 

IF:  Patient  order  for  blood  products  is:  Blood  products 
x  12  unit 

THEN:  CptpointJ  is  given  the  value  CptpointJ  ♦  24 
Rule  Number:  351 

IF:  Patient  order  for  blood  products  is:  Blood  products 
x  24  unit 

THEN:  CptpointJ  is  given  the  value  CptpointJ  ♦  48 
Rule  Number:  352 

IF:  Patient  order  Far  blood  products  is:  Not  ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  awarded 

Rule  Number:  353 

IF:  Patient  order  for  group  teaching  is:  Group  teaching 
THEN:  CptpointJ  is  given  the  value  CptpointJ  +  2 

Rule  Number:  354 

IF:  Patient  order  for  group  teaching  is:  Not  ordered 
THEN:  CptpointJ  is  given  the  value:  no  points  awarded 


Rule  Number:  355 

IF:  Patient  order  for  preoperative  teaching  ie: 
Preoperative  teaching 

THEN:  Cptpointl  is  given  the  value  CptpointD  +  4 
Rule  Number:  355 

IF:  Patient  order  for  preoperative  teaching  is:  Not 
ordered 

THEN:  Cptpaintl  is  given  the  value:  no  points  awarded 
Rule  Number:  357 

IF:  Patient  order  for  structured  teaching  is:  Structured 
teaching  Ci.e.  diabetic,  cardiac,  colostomy  care, 
post  partum  first  24  hr,  newborn  care,  discharge! 

THEN:  Cptpointl  is  given  the  value  Cptpointl  +  4 

Rule  Number:  358 

IF:  Patient  order  for  structured  teaching  is:  Not 
ordered 

THEN:  Cptpointl  is  given  the  value:  no  points  awarded 
Rule  Number:  359 

IF:  Patient  order  far  emotional  support  is:  Patient/ 
family  support  Ci.e.  anxiety,  denial,  lonliness, 
etc .  3 

THEN:  Cemapointl  is  given  the  value  Cemopaint!  +  4 
Rule  Number:  360 

IF:  Patient  order  far  emotional  support  is:  Nat  ordered 

THEN:  Cemopaint!  is  given  the  value:  no  points  awarded 

Rule  Number:  361 

IF:  Patient  order  for  modification  of  lifestyle  is: 
Emotional  support  for  modification  of  lifestyle 
Ci.e.  new  prothesis,  body  image,  behavior 
modification,  etc. 3 

THEN:  CemopaintD  is  given  the  value  Cemapointl  ♦  4 
Rule  Number:  362 

IF:  Patient  order  far  modification  af  lifestyle  is:  Nat 
ordered 

THEN:  Cemopointl  is  given  the  value:  no  points  awarded 
Rule  Number:  363 

IF:  Patient  order  Far  sensory  deprivation  is:  Emotional 
support  for  sensory  deprivation  Ci.e.  retarded, 
blind,  deaf,  language  barrier,  bilateral  eye 
patches,  confused,  combative,  etc. 3 

THEN:  CBmopointl  is  given  the  value  Cemopointl  +  6 


Rule  Number.-  364 

IF:  Patient  order  Far  sensory  deprivation  is:  Not 
ordered 

THEN:  CemopointD  is  given  the  value:  no  points  awarded 
Rule  Number:  365 

IF:  Patient  order  for  cardiac  monitor  is:  Cardiac 
monitor 

THEN:  CmonpointD  is  given  the  value  CmonpointD  +  6 
Rule  Number:  366 

IF:  Patient  order  for  cardiac  monitor  is:  Not  ordered 
THEN:  CmonpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  367 

IF:  Patient  order  for  apnea  monitor  is:  Apnea  monitor 
THEN:  CmonpointD  is  given  the  value  CmonpointD  +  6 

Rule  Number:  36B 

IF:  Patient  order  far  apnea  monitor  is:  Not  ordered 
THEN:  CmonpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  369 

IF:  Patient  order  for  temp  monitor  is:  Temp  monitor 
THEN:  CmonpointD  is  given  the  value  CmonpointD  +  6 

Rule  Number:  370 

IF:  Patient  order  for  temp  monitor  is:  Not  ordered 
THEN:  CmonpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  371 

IF:  Patient  order  for  pressure  monitor  is:  Pressure 
monitor 

THEN:  CmonpointD  is  given  thB  value  CmonpointD  +  6 
Rule  Number:  372 

IF:  Patient  order  for  pressure  monitor  is:  Not  ordered 
THEN:  CmonpointD  is  given  the  value:  no  points  awarded 

Rule  Number:  373 

IF:  CmonpointD  >  0 

THEN:  CptpointD  is  given  the  value  CptpointD  +  6 

Rule  Number:  374 

IF:  CroupointD  >  5 

THEN:  CptpointD  is  given  the  value  CptpointD  + 
CroupointD 

Rule  Number:  375 

IF:  CemopointD  >  0  and  CemopointD  <  11 


THEN:  CptpointD  is  given  the  value  CptpointD  + 
CemopointD 

Rule  Number:  376 

IF:  CemopointD  >  10 

THEN:  CptpointD  is  given  the  value  CptpointD  +  10 
Rule  Number:  377 

IF:  CptpointD  >-  0  and  CptpointD  <  13 

THEN:  Patient  category  is:  I  Self  Care/Minimal  Care 
Rule  Number:  370 

IF:  CptpointD  >  12  and  CptpointD  <  32 
THEN:  Patient  category  is:  II  Moderate  Care 

Rule  Number:  379 

IF:  CptpointD  >  31  and  CptpointD  <  64 

THEN:  Patient  category  is:  III  Acute  Care  Cl  staff  to  3 
patients] 

Rule  Number:  380 

IF:  CptpointD  >  63  and  CptpointD  <  96 

THEN:  Patient  category  is:  IU  Intensive  Care  Cl  staff 
to  2  patients] 

Rule  Number:  381 

IF:  CptpointD  >  95  and  CptpointD  <  146 

THEN:  Patient  category  is:  0  Continuous  Care  Cl  staff 
to  1  patients] 

Rule  Number:  382 

IF:  CptpointD  >  145 

THEN:  Patient  category  is:  UI  Critical  Care  Cl  staff 
to  1  patients] 
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APPENDIX  E 


PROGRAM  LISTINGS 


****  INTRO. PRG  ******* 

*  Author: 

*  Date: 

*  Screen  Generated  By: 

» 

*  Purpose: 

* 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


Gary  R .  Harmeyer  LCDR  NC  USN 
EG  November  1905 
The  Saftu/are  Bottling  Company 
Of  New  York,  cl985 
Introductory  screen  for  the  proto¬ 
type  model . 

Intro. Scr  and  Procfile.Prg 

None 

None 

Ualid . Prg 
10  February  1986 


*  —  Screen  Input  Program  For  Intro  -- 

• 

Set  Procedure  Ta  B:Pracfile 
Do  Setup 
Public  Flash 
Flash  -  ChrC 1451 


Da  While  .T. 

*  --  Screen  display  B: Intro. Scr  -- 

Set  Procedure  To  B:Pracfile 
Set  Color  Ta  U+/B,  / 

Clear 

??  Flash+”S.B: Intro. Scr/” 

Set  Color  To  LI+/B,  /W 
0  24,0 

Set  Console  Off 
Wait 

Set  Console  On 
Do  B:Ualid 


Enddo 


***«  PROCFILE.PRG  ************************************** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  1  December  1985 

*  Purpose:  See  comments  above  each  procedure. 

*  Input  Files  Used:  None 

*  Output  Files  Used:  Orders  and  Ncaredb.DbF 

*  Calling  Routine:  All  modules 

*  Routine  Called:  None 

*  Modification  Date:  18  February  1986 

* 

* 

*  —  Screen  headers  after  patient  selection  — 

Procedure  Headings 

0  5,3  Say  Ptselect 
0  5,45  Say  Ptregna 
0  5,56  Say  Dated 
0  5,65  Say  Timed 
0  85,3  Say  Curuser 
Return 


*  —  Used  to  reset  painter  and  put  data  from  variable 

*  —  names  into  Orders. Dbf  — 

Procedure  Replaard 

Store  DTOCCDated]  To  Now 
Use  B: Orders 
Do  While  .Not.  EQFd 
Skip 
Endda 

Append  Blank 

Replace  Order  With  Marder 
Replace  Fmpssn  With  Ptfmpssn 
Replace  Freq  With  Ofreq 
Replace  Otime  With  Timed 
Replace  Odate  With  Now 
Replace  Prac  With  Curuser 
Replace  Expertsys  With  Passdata 
Replace  Onlytoday  With  Tadayonly 
Replace  Critical  With  Ptpoint 
Replace  Module  With  Omadule 
Replace  Monpt  With  Manpoint 
Replace  Emapt  With  Emapoint 
Replace  Roupt  With  Raupoint 
Return 


*  —  Used  to  reset  pointer  and  put  data  From  variable 

*  --  names  into  Ncaredb.Dbf  — 

Procedure  Repnrord 

Use  B:Ncaredb 
Da  While  .Not.  EOFd 
Skip 
Enddo 

Append  Blank 

Replace  Nfmpssn  With  Ptfmpssn 
Replace  Nord  With  harder 
Replace  Ntime  With  Timed 
Replace  Ndate  With  Dated 
Replace  Nurse  With  Curuser 
Replace  Ndiag  With  Nursdiag 
Replace  Assess  With  Nassess 
Replace  Relate  With  Nrelate 
Replace  Goal  With  Ngaal 
Replace  NFreq  With  Qfreq 
Replace  Emotea  With  Emateach 
Return 


*  —  Determine  the  current  nursing  care  level  — 
Procedure  Current 
Xgoa4cur  -  "B” 

0  23,67  Get  XgaaHcur  Piet  ”!  ” 

Read 

Do  While  .Not.  CXgoa4cur  -  ”A”  .Or.  Xgoa4cur  -  ”B” 
Xgoa4cur  -  ”C".Or.  Xgoa4cur  -  ”D”  .Or.  Xgoa4cur  - 
0  23,67  Clear 
Store  ”  ”  To  Xgoa4cur 

0  24,0  Say  "Re-Enter  Letter  A,  B,  C,  D  or  E” 

0  23,67  Get  Xgoa4cur  Piet  ”!” 

Read 

Enddo 

*  —  Assign  value  to  letter  selected  — 

Do  Case 

Case  Xgoa4cur  ■  ”A” 

border  “  ” InFant/Toddler  CarB” 

Passdata  -  "023  1" 

Ptpoint  -  6 
Case  Xgoa4cur  -  "B” 

border  -  "Self /binimum  Care” 


Passdata  “  ”023  2” 
Ptpoint  -  2 
Case  XgoaHcur  -  ”C” 

Harder  -  ’’Assisted  Care” 
Passdata  -  ”Q23  3” 
Ptpoint  “  6 
Case  XgoaHcur  -  "D” 

Morder  “  ’’Complete  Care" 
Passdata  -  ”023  4" 
Ptpoint  -  14 
Case  XgoaHcur  -  ”E” 

Harder  -  ’’Total  Care” 
Passdata  -  ”023  5” 
Ptpoint  “  32 
Endcase 
Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  —  expert  system  For  oral,  in  or  3ubq  medication 

*  —  category  options  — 

Procedure  Regmeds 
Do  Case 

Case  CTimeopt  <  2S  .Or.  Timeopt  -  413 

*  —  Less  than  x  3  or  TID 
Passdata  -  ”047  1" 

Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  363 

*  —  X  3  or  TID  up  to  x  12  trips 
Passdata  -  ”047  2" 

Ptpoint  “  2 

Case  CTimeopt  >  35  .And.  Timeopt  <  403 

*  —  More  than  12  trips 
Passdata  -  ”047  3” 

Ptpoint  -  4 

Endcase 

Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  —  expert  system  For  laboratory  category  options 

Procedure  Labcount 
Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  -413 
Passdata  -  ”044  1" 

Ptpoint  “  0 


Case  CTimeopt  -  34  .Or.  Timeopt  -353 
Passdata  -  ”Q44  2” 

Ptpaint  -  2 

Case  CTimeopt  -  36  .Or.  Timeopt  -  373 
Passdata  -  "Q44  3" 

Ptpoint  -  4 

Case  CTimeopt  “38  .Or.  TimBopt  -  333 
Passdata  -  "Q44  4” 

Ptpoint  ”  8 
Endcase 
Return 


*  —  Determine  the  liter  floui  rate  of  oxygen  — 

Procedure  Liter 
Xliteropt  -  ”8” 

0  23,66  Get  Xliteropt  Piet  ”!” 

Read 

Do  While  .Not.  CXliteropt  -  ”A”  .Or.  Xliteropt  “  ”B”.Or 
Xliteropt-  ”C” .Or.  Xliteropt-  "D” .Or.  Xliteropt-  ”E”3 
0  23,66  Clear 
Stare  ”  ”  To  Xliteropt 

0  24,0  Say  ’‘Re-Enter  Letter  A,  B,  C,  D  or  E” 

0  23,66  Get  Xliteropt  Piet  ”!  ” 

Read 

Enddo 

*  —  Assign  value  to  letter  selected  — 

Do  Case 

Case  Xliteropt  -  ”A” 

XI iter  -  "0  1-2  1/m” 

Case  Xliteropt  -  "B” 

XI iter  -  ”0  3-4  1/m” 

Case  Xliteropt  -  "C" 

Xliter  -  ”0  5-6  1/m” 

Case  Xliteropt  -  "B” 

Xliter  -  ”0  7-8  1/m” 

Case  Xliteropt  -  ”B" 

Xliter  -  ”0  3-10  1/m" 

Endcase 

Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the  ex- 

*  —  pert  system  for  10  medication  category  options  — 


Procedure  IUmeds 


□o  Cose 

Case  CTimeopt  <  25  .Or.  Timeopt  -  413 
»  —  Less  than  Q8h  or  TID 
Passdata  -  ”Q74  1” 

Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  --  QBh  or  TID 
Passdata  -  ”074  2” 

Ptpoint  -  2 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  QBh  or  x  4 
Passdata  -  ”Q74  3” 

Ptpoint  -  3 

Case  CTimeopt  “  34  .Or.  Timeopt  -  353 
»  —  Q4h  or  x  6 
Passdata  -  ”Q74  4” 

Ptpoint  -  4 

Case  CTimeopt  “36  .Or.  Timeopt  “373 

*  —  Q2h  or  x  12 
Passdata  -  "Q74  5” 

Ptpoint  “  8 

Case  CTimeopt  “38  .Or.  Timeopt  “393 

*  —  Qlh  or  x  24 
Passdata  -  ”Q74  6” 

Ptpoint  “  16 

Endcase 

Return 


*  —  Initialize  variables  in  the  order  modules  — 

Procedure  Startup 

OFreq  -  ”  ” 

Ptpoint  “  0 
Passdata  -  ”  ” 

Tadayanly  -  ”F” 

Emopoint  “  0 
flonpaint  “  0 
Raupaint  “  0 
Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 
expert  system  For  range  oF  motion  category  — 


Procedure  Range 


□a  Case 

Case  CTimeopt  <  B5  .Or.  Timeopt  “  413 

*  —  Less  than  x  3 
Passdata  "  ”QB1  1” 

Ptpoint  -  0 

Case  CTimeopt  >  B4  .And.  Timeopt  <  343 

*  —  X  3  or  less  than  x  B 
Passdata  “  "Q61  B” 

Ptpoint  -  4 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  —  X  6  or  Q4h 
Passdata  -  ”Q61  3” 

Ptpoint  -  B 

Case  CTimeopt  “  3B  .Or.  Timeopt  *  373 

*  —  X  IB  or  QSh 
Passdata  -  ”Q61  4” 

Ptpoint  •  16 

Case  CTimeopt  ■  38  .Or.  Timeopt  "  383 

*  —  X  24  or  Qlh 
Passdata  -  ”Q61  5” 

Ptpoint  -  3B 

Endcase 

Return 


*  —  Used  to  evaluate  the  proper  value  to  pass  to  the 

*  —  expert  system  For  cough  and  deep  breathe  category 

*  —  option  — 

Procedure  Cough 
Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  "  413 
»  —  Less  than  Q4h  or  x  B 
Passdata  -  MQ65  1” 

Ptpoint  •  0 

Case  CTimeopt  “  34  .Or.  TimBopt  “  353 

*  —  Q4h  or  x  B 
Passdata  -  "Q65  B" 

Ptpoint  ”  B 

Case  CTimeopt  -  3B  .Or.  Timeopt  ”  373 

*  —  QBh  or  x  IB 
Passdata  -  ”Q65  3" 

Ptpoint  "  4 

Case  CTimeopt  “  38  .Or.  Timeopt  "  393 

*  --  Qlh  or  x  B4 


PasadotQ  -  ”Q65  4” 
Ptpoint  -  B 

Endcase 

Return 


*  —  Sets  up  the  initial  environment  for  each  module 
Procedure  Setup 
Clear 

Set  Escape  On 
Set  Talk  Off 
Set  Echo  Off 
Return 


*  —  Used  ta  evaluate  the  proper  value  to  pass  to  the 

*  —  expert  system  for  S&A,  specific  gravity,  Guiac 

*  —  and  spin  Hct  category  option  — 

Procedure  Routine 
Da  Case 

Case  CTimeopt  <  S  .Or.  Timeopt  -  413 

*  —  No  specific  frequency  ordered 
Roupaint  -  0 

Case  CTimeopt  >  4  .And.  Timeopt  <  223 

*  —  X  1  or  QD 
Roupaint  -  1 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  —  X  2  or  BID 
Roupoint  •  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  —  X  3  or  TID 
Roupoint  **  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  X  4  or  QID 
Roupoint  *  4 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  —  X  6  or  Q4h 
Roupaint  “  6 

Case  CTimeopt  -  36  .Or.  Timeopt  -  373 

*  —  X  12  or  Q2h 
Roupoint  -  12 

Case  CTimeopt  -  3B  .Or.  Timeopt  “  3S3 

*  —  X  24  or  Qlh 
Roupoint  ”  24 

Endcase 

Return 


**•*  UAL  ID . PRG  **«»****•*»****•****•••*,••*•**********•*, 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  2  December  1985 

*  Screen  Generated  By:  The  Software  Battling  Company 

*  OF  New  York,  cl9B5 

*  Purpose:  Evaluate  the  validity  of  the 

*  password  used . 

*  Input  Files  Used:  Ualid.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Useinfo.Dbf 

*  Calling  Routine:  Intro. Prg 

*  Routine  Called:  Master . Prg 

*  Modification  Date.-  18  February  1986 

* 

*  —  Screen  Input  Program  Far  Ualid  -- 

» 

□a  Setup 

Public  Xu3epass, Curuser , Useacc 
Use  B:Useinfo 
Xusepass  -  SpaceCS! 

Xusepasl  ■  Spaced! 

XusepasE  •  Spaced! 

XusepasS  ■  Spaced! 

Xusepas4  ■  Spaced! 

XusepasS  *  Spaced! 

Do  While  .T* 

*  —  Screen  Display  A: Ualid.Scr  — 

Set  Color  To  W+/B.U+/B 
Clear 

??  Flash* "S. A: Ualid.Scr/" 

Set  Color  To  W+/B.W+/B 
0  13,43 

*  —  Places  an  ”X”  on  the  screen  to  mask  the  password 

*  —  entered  — 

Set  Console  Off 
Wait  To  Xusepasl 
0  13,43  Say  ’X’ 

Wait  To  XusepasB 
0  13,45  Say  'X' 

Wait  To  Xusepas3 
0  13,47  Say  *X* 

Wait  To  Xusepas4 
0  13,49  Say  ’X’ 

Wait  To  XusepasS 
0  13,51  Say  ’X’ 


Xusepass 

Upper  CXusepasl+Xusepas2-*-Xusepas3-*-Xusepas4+Xusepas5D 
Set  Consols  On 

*  —  Evaluates  the  password  entered  — 

Locate  For  Xusepass  -  Codeword 

IF  C Xusepass  <>  Codeword!  .And.  EQFC3 

0  24,15  Sag  "INUALID  PASSWORD  —  HIT  ANY  KEY" 

0  24,51  Say  “  AND  RE-ENTER” 

Set  Console  OFF 
Wait 

Set  Console  On 
Loop 
EndiF 

Store  UFinitial  TrimCUlname!  To  Curuser 

Store  Access  To  Useacc 
0  24,0 

0  23,00  Clear 

0  24,7  Say  "Your  Password  Has  Been  Accepted  —  " 

0  24,42  Say  "Please  Press  A  Key  To  Continue” 

Set  Console  OFF 
Wait 

Set  Console  On 
Da  B: Master 

Enddo 


\  S  s 


m 


•***  MASTER. PRG  *»*»*• 

*  Author: 

*  Date: 

*  Screen  Generated  By 

* 

*  Purpose: 


*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


Gary  R.  Harmeyer  LCDR  NC  USN 
26  November  1385 
The  Software  Bottling  Company 
Of  New  York,  clSSS 
Menu  program  to  branch  between  thB 
admission’s  department,  the 
database  administration  and 
the  patient  care  personnel . 
Master. Scr  and  ProcfilB.Prg 
None 

Ualid . Prg 

Admit,  Ward  or  Addelete.Prg 
4  February  1S86 


*  —  Screen  Input  Program  For  Master  — 

* 

Da  Setup 

Public  Xmasopt , Omadule 
Omadule  -  Spaced! 

Do  While  .T. 

*  —  Screen  Display  B: Master. Scr  — 


Set  Color  To  UJ+/B,  W+/B 
Clear 

??  Flash+”S.B: Master. Scr/” 
Set  Color  To  U1+/B ,  UI+/B 
Xmasopt  -  0 
0  2,56  Say  DateC ] 

0  2,65  Say  TimeC  D 
0  22,3  Say  Curuser 
0  22,67  Get  Xmasopt  Piet  "S’ 
Read 


Range  0,4 


*  —  Evaluate  action  based  on  the  option  selected 

*  —  Ualidate  user’s  access  to  area  selected  — 

Do  Case 

Case  Xmasopt  -  0 
*  --  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 


Cass  Xmasopt  -  1 

•  —  Admission’s  Department 
Do  Case 

Case  Useacc  “2  .Or.  Useacc  "3  .Or.  Useacc 
0  24,16  Say  "Access  Not  Allowed  —  Press 
0  24,44  Say  "Any  Key  To  Continue” 

Set  Console  OFF 
Ulait 

Set  Console  On 
Loop 

Case  Useacc  “0  .Or.  Useacc  “  1 
Do  B: Admit 
Endcase 

Case  Xmasopt  -  2 

•  —  Doctor  Master 
Do  Case 

Case  Useacc  “1  .Or.  Useacc  -  2  .Or.  Useacc 
0  24,16  Say  "Access  Not  Allowed  —  Press 
0  24,44  Say  “Any  Key  To  Continue” 

Set  Console  OFF 
Ulait 

Set  Console  On 
Loop 

Case  Useacc  -  0  .Or.  Useacc  -  4 
Omodule  -  ”0" 

Da  B:Ulard 
Endcase 

Case  Xmasopt  -  3 

*  —  Nursing  Master 
Do  Case 

Case  Useacc  *1  .Or.  Useacc  “2  .Or.  Useacc 
0  24,16  Say  "Access  Not  Allowed  —  Press 
0  24,44  Say  "Any  Key  To  Continue” 

Set  Console  OFF 
Wait 

Set  Console  On 
Loop 

Case  Useacc  "0  .Or.  Useacc  -  3 
Omodule  -  "N" 

Do  B:UJard 
Endcase 

Case  Xmasopt  -  4 

*  —  System  Administration 
Da  Case 

Case  Useacc  “1  .Or.  Useacc  “3  .Or.  Useacc 
0  24,16  Say  "Access  Not  Allowed  —  Press 
0  24,44  Say  "Any  Key  Ta  Continue” 


SBt  Console  Off 
Unit 

Set  Console  On 
Loop 

Case  Useacc  -  0  .Or. 
Do  B:Addelete 
Endcase 
Endcase 

Release  Xmasopt 
Enddo 


Useacc 
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****  ADMIT .PRG  **•**•*•**•*****»*•***•****•******«*•**** 

*  Author:  Gary  R.  Harmeyer  LCOR  NC  USN 

*  Date:  9  January  198G 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Allows  the  admitting  personnel  to 

*  choose  to  admit  or  discharge  a 

*  patient. 

*  Input  Files  Used:  Admit. Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Master . Prg 

*  Routine  Calls:  Pt_Infa  or  Discharg.Prg 

*  Modification  Date:  25  January  1386 

* 

*  —  Screen  Input  Program  Far  Admit  -- 

* 

Da  Setup 

Public  Xadmitopt 
Do  While  .T. 

•  —  Screen  Display  B: Admit. Scr  — 

Set  Color  To  UJ+/B.UJ+/B 
Clear 

??  F lash-*-  "S  .  B :  Admit .  Scr  /  ” 

Set  Color  To  U+/B.U1+/B 
Xadmitopt  -  0 
0  22,3  Say  Curuser 

0  22,67  Get  Xadmitopt  Piet  ”9"  RangB  0,2 
Read 

•  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 

Case  Xadmitopt  -  0 

*  —  Sign-Off 
Close  Databases 
Release  All 
Close  Procedure 
Return  To  Master 

Case  Xadmitopt  -  1 

*  --  Admit  A  Patient 
Da  B:Pt_Infa 
Looo 


****  PT_ INFO . PRG 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  29  November  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl905 

*  Purpose:  Add  a  patient  to  the  patient 

*  database  file. 

*  Input  Files  Used:  Pt_Info.Scr  and  Procfile.Prg 

»  Output  Files  Used:  Pt_Info.Dbf 

*  Calling  Routine:  Admit. Prg 

*  Routine  Called:  None 

*  Modification  Date:  26  January  1906 

* 

*  —  Screen  Input  Program  for  Pt_Info  — 

• 

Do  Setup 

Public  Xplname, Xpfname, Xpmname, Xraterank, Xfmpssan 
Public  Xpbdate, Xpage, Xpsex , Xpadmdate, Xpregno 
Public  Xpmeddiag , Xpphy , Xpprog, Xpal 1 , Xpward , Xprm , Xpbed 
Xplname  “  SpaceCBO] 

Xpfname  -  Space! 12] 

Xpmname  •  SpaceC33 
Xraterank  -  SpaceCllD 
Xfmpssan  -  ”  -”+SpaceC93 
Xpbdate  -  DateC] 

XpagB  -  SpaceCB] 

Xpsex  -  Spaced] 

Xpadmdate  -  Date!] 

Xpregno  -  SpaceCS] 

Xpmeddiag  -  SpaceC24] 

Xpphy  -  SpaceC243 
Xpprog  -  SpaceCBJ 
Xpall  -  SpaceC24] 

Xpward  -  SpaceC2] 

Xprm  -  Spaced] 

Xpbed  *  Spaced] 

Do  While  .T. 

*  —  Screen  Display  B: Pt_Info ,Scr  -- 

Set  Color  To  W+/B , W+/B 
Clear 

??  Flash+ ”S . B : Pt_ Inf o . Scr/ ” 

Set  Color  To  UJ  +  /B  ,  UJ+/B 

0  5,14  Get  Xplname  Piet  ’’ !  XXXXXXXXXXXXXXXXXXX" 

0  7,14  Get  Xpfname  Piet  ” ! XXXXXXXXXXX” 

0  9,14  Get  Xpmname  Piet  ”!XX” 

0  11,14  Get  XratBrank  Piet  "I!!!!!!!!!!” 


0  13, 14  Gat  XfiTtpssQn  Piet  ”99-999399999 " 

0  15,14  Get  Xpbdate; 

Range  CTODC ”01/01/00"] , CTODC ”12/31/99" ] 

0  17,14  Get  Xpage  Piet  "XXX” 

0  19,14  Get  Xpsex  Piet  ”!” 

0  21,14  Get  Xpadmdate; 

Range  CTODC ”01/01/00” 3 , CTODC ”12/31/99" ] 

0  5,55  Get  Xpregno  Piet  ”99999999" 

0  7,55  Get  Xpmeddiag  Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXX” 

0  9,55  Get  Xpphy  Piet  ”! XXXXXXXXXXXXXXXXXXXXXXX” 

0  11,55  Get  Xpprag  Piet  ”!!!” 

0  13,55  Get  Xpall  Piet  ”! XXXXXXXXXXXXXXXXXXXXXXX” 

*  —  Ualidate  input  far  ward,  room  and  bed  assignment 

0  15, 5S  GBt  Xpuiard  Piet  ”9!” 

Read 

Do  While  .Not.  C Xpuiard  -  ”2E”  .Or.  Xpuiard  -  ”3E”3 
Xpuiard  -  SpaceC23 

0  24,0  Say  "Re-Enter  EithBr  2E  or  3E” 

0  15,55  Get  Xpuiard  Piet  ”9!” 

Read 

Enddo 

0  24,0  Clear 

0  17,55  Get  Xprm  Piet  "9” 

Read 

Da  While  .Not.  CXprm  -  ”1”  .Or.  Xprm  -  ”2”  .Or.; 

Xprm  -  ”  3  "  3 
Xprm  -  Spaced] 

0  24,0  Say  "Re-Enter  Either  1  or  2  or  3” 

0  17,55  Get  Xprm  Piet  ”9” 

Read 

Enddo 

0  24,0  Clear 

0  19,55  Get  Xpbed  PICT  "I" 

Read 

Do  While  .Not.  CXpbed  -  "A”  .Or.  Xpbed  -  ”B”3 
Xpbed  -  Spaced] 

0  24,0  Say  "Re-Enter  Either  A  or  B” 

0  19,55  Get  Xpbed  Piet  "!” 

Read 

Enddo 

0  24,0  Clear 

*  —  Put  data  from  variable  names  into  Dbf  file  ~ 

Use  B:Pt_Infa 
Do  While  .Not.  EOFC] 


Skip 

Enddo 

Append  Blank 

Replace  Plname  With  Xplname 
Replace  Pfname  With  Xpfname 
Replace  Pmname  With  Xpmname 
Replace  Raterank  With  Xraterank 
Replace  Fmpssan  With  Xfmpssan 
Replace  Pbdate  With  Xpbdate 
Replace  Page  With  Xpage 
Replace  Psex  With  Xpsex 
Replace  Padmdate  With  Xpadmdate 
Replace  Pregna  With  Xpregna 
Replace  Pmeddiag  With  Xpmeddiag 
Replace  Pphy  With  Xpphy 
Replace  Pprog  With  Xpprag 
Replace  Pall  With  Xpall 
Replace  Puiard  With  Xpuiard 
Replace  Prm  With  Xprm 
Replace  Pbed  With  Xpbed 

Return 

Release  Xplname, Xpfname, Xpmname, Xraterank, Xfmpssan 
Release  Xpbdate , Xpage , Xpsex , Xpadmdate , XprBgno 
Release  Xpmeddiag ,  Xpphy  ,  Xpprag,  Xpall ,  Xpuiard,  Xprm,  Xpbed 


Enddo 


****  DISCHARG. PRG  *** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Data:  9  January  198G 

H  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSSS 

*  Purpose:  Discharge  a  patient. 

*  Input  Files  Used:  Discharg.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Pt.Info,  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Admit. Prg 

*  Routine  Calls:  None 

*  Modification  Date:  18  February  1986 

* 

*  —  Screen  Input  Program  For  Discharg  — 

* 

Do  Setup 

Public  Xdischopt, Xdcfssn, Xdclname, Xdcfname 
Public  Xdcmname , Xdcpphy , Xmdf mpssn , Xppack 
Xppack  -  .F. 

Select  A 
Use  B:Pt_Infa 
Select  B 
Use  B: Orders 
Select  C 
Use  B:Ncaredb 

Da  While  .T. 

*  —  Stare  data  from  Dbf  file  into  variable  names  — 
Select  A 

Xdcfssn  -  Fmpssan 
Xdclname  -  Plname 
Xdcfname  ”  Pfname 
Xdcmname  “  Pmname 
Xdcpphy  -  Pphy 

*  —  Screen  Display  B : Discharg . Scr  — 

Set  Color  To  W-*-/B,W+/B 
Clear 

??  Flash* ”S . B: Discharg . Scr/ ” 

Set  Color  To  U1+/B ,  UI+/B 
Xdischopt  "  1 
0  28,3  Say  Curuser 
0  13,2  Say  Xdcfssn 
0  13,17  Say  Xdclname 
0  13,38  Say  Xdcfname 
0  13,51  Say  Xdcmname 
0  13,55  Say  Xdcpphy 


0  22,67  GBt  Xdischapt  Piet  ”9’’  Range  0,3 
Read 

*  —  Evaluate  action  based  on  the  option  selected  - 
□o  Case 

Case  Xdischopt  -  0 

*  —  Sign-Off 
If  Xppack  -  .T. 

Pack 

Endif 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdischopt  ■  1 

*  —  Next  Patient 
Skip 

If  EOF  CD 

0  24,15  Say  ”Na  Additional  Patients  —  Press 
0  24,47  Say  ’’Any  Key  To  Continue” 

Set  Console  Off 
Wait 

Set  Console  On 
If  Xppack  -  .T. 

Pack 

Endif 

Close  Databases 
Return 
Else 
Loop 
Endif 

Case  Xdischopt  “  2 

*  —  Discharge  patient 
Xppack  -  .T. 

Stare  ”’”  +  Xdcfssn  +  ”’”  To  Xmdfmpssn 

*  —  Eliminate  patient  data  from  database  files 
Select  B 

Da  While  .Not.  EOFCD 

Locate  For  Fmpssn  *  SXmdfmpssn 
If  .Not.  EOFCD 
Delete 
Skip 
Endif 
Enddo 


Select  C 

Do  While  .Not.  E0FC3 

Locate  For  Nfmpssn  “  &Xmdfmpssn 
If  .Not.  E0FC3 
Delete 
Skip 
End  if 
Enddo 
Pack 

Select  A 
Delete 
Skip 

If  EOF  C3 

0  24,15  Say  ”Na  Additional  Patients  —  Press 
0  24,47  Say  ’‘Any  Key  To  Continue” 

Set  Console  Off 
Wait 

Set  Console  On 
Pack 

Close  Databases 
Return 
Else 
Loop 
Endif 

Case  Xdischopt  *  3 

*  —  Admit/Discharge  Screen 
If  Xppack  -  .T. 

Pack 

Endif 

Close  Databases 
Return 

Endcase 

Release  Xdischopt , Xdcfssn, Xdclname, XdcfnamB 
Release  Xdcmname , Xdcpphy , Xmdf mpssn , Xppack 

Enddo 
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WARD . PRG  •••***•*••««••*•*•••*«•**••••••••••**■ 

Author:  Gary  R.  HarmByer  LCDR  NC  USN 

□ate:  26  November  1985 

Screen  Generated  By:  The  Software  Bottling  Company 

OF  New  York,  cl9B5 

Purpose:  Determine  ward  selection. 

Input  Files  Used:  Ward . Scr  and  Procfile.Prg 

Output  Files  Used:  NonB 

Calling  Routine:  Master. Prg 

Routine  Called:  Ward2  or  UJard3.Prg 

Modification  Date:  4  February  1906 

—  Screen  Input  Program  Far  Ward  — 

Do  Setup 

Public  Xwardapt , Ourpt , Of req , Passdata , Pt point , Today only 
Public  Monpoint , Emopoint , Roupoint , PtsBlect ,  Morder , Now 
Public  Ptfmpssn, Ptregno 
Of  req  -  Spaced! 

Passdata  -  Space C 61 
Ptpoint  ■  0 
Tadayonly  -  "F” 

Monpaint  -  0 
Emopoint  -  0 
Roupoint  -  0 
Marder  -  Space C 27 3 
Now  -  SpaceCBD 

Do  While  .T. 

*  —  Screen  Display  B: Ward. Scr  — 

Set  Color  To  W+/B, W+/B 
Clear 

??  Flash-*-  "5  .  B :  Ward  .  Scr  /  ” 

Set  Color  To  W+/B.W+/B 
Xwardapt  -  3 
@2,56  Say  DateCD 
0  2,65  Say  Time CD 
0  22,3  Say  Curuser 

0  22,67  Get  Xwardapt  Piet  ”9”  Range  0,3 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 

Case  Xwardopt  -  0 
*  —  Sign-Off 

I69 


Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xuiardopt  -  1 

*  —  2E  Surgical  Uard 
Da  B:U)ard2 

Return 

Case  Xuiardopt  -  2 

*  —  3E  Medical  UJard 
Do  B:Uard3 

Return 

Case  Xuiardopt  -  3 

*  —  Master  Screen 
Return 

Endcase 

Release  Xuiardopt 


Enddo 


****  UJARD2.PRG  *»******»•********•*•***•»*•*»«**»*•*•**** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  26  November  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Displays  patients  assigned  to  ward 

*  2E,  for  patient  selection. 

*  Input  Files  Used:  Ulard2.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Pt_Info.Dbf 

*  Calling  Routine:  Master. Prg 

*  Routine  Called:  Doctor  or  Nurse. Prg 

*  Modification  Date:  4  February  1986 

« 

*  —  Screen  input  program  for  Ulard2  -- 

* 

Do  Setup 

Public  Xwd2opt , Xptlregno , Xpt2regna , Xpt3regna , Xpt4regno 

Public  XptSregno, Xpt6regna , Xptl , Xpt2 , Xpt3, Xpt4 , Xpt5 

Public  Xptlfmpssn, Xpt2fmpssn, Xpt3fmpssn, Xpt6 

Public  Xpt4fmpssn, XptSfmpssn, Xpt6fmpssn 

*  —  Store  specific  data  from  Dbf  file  into  variable 

*  —  names  — 

Use  B:Pt_Info 

Locate  Far  Prm  -  ’1’  .And.  Pbed  -  ’A’  .And.  Pward  -  ’2’ 
Xptl  ■  Pfname  -  C ’  ’  +PlnameD 

Xptlregno  -  Pregna 
Xptlfmpssn  -  Fmpssan 

Locate  For  Prm  -  ’1’  .And.  Pbed  -  ’B’  .And.  Pward  -  ’2’ 
Xpt2  •  Pfname  -  C  ’  ’  -*-Plname3 

Xpt2regno  -  Pregno 
Xpt2fmpssn  “  Fmpssan 

Locate  Far  Prm  -  ’2’  .And.  Pbed  -  ’A’  .And.  Pward  -  ’2' 
Xpt3  •  Pfname  -  C ’  ’  +Plnamel 

Xpt3regno  -  Pregno 
Xpt3fmpssn  -  Fmpssan 

Locate  For  Prm  •  'S’  .And.  Pbed  “  ’B’  .And.  Pward  "  'S' 
Xpt4  ■  Pfname  -  C ’  ’  +Plnamel 

Xpt4regno  *  Pregno 
Xpt4fmpssn  “  Fmpssan 

Locate  For  Prm  -  ’3'  .And.  Pbed  “  ’A’  .And.  Pward  -  'S’ 
XptS  "  PFname  -  C ’  ’  +Plname] 

XptSregno  -  PrBgno 
XptSfmpssn  -  Fmpssan 

Locate  Far  Prm  -  ’3’  .And.  Pbed  -  ’B’  .And.  Pward  -  ’2’ 
XptB  "  Pfname  -  C ’  ’  +Plnamel 

Xpt6regno  -  Pregna 
Xpt6fmpssn  -  Fmpssan 


Do  While  .T. 


*  —  Screen  Display  B:Ward2.Scr  — 

Set  Color  To  W+/B.W+/B 
Clear 

??  Flash+”S.B: Wards. Scr/" 

Set  Color  To  W+/B, W+/B 
XuidSopt  ■  7 
S  2,56  Say  Dated 
0  2,65  Say  Timed 
0  9,33  Say  Xptl 
0  10,39  Say  XptS 
0  IS, 39  Say  Xpt3 
0  13,39  Say  Xpt4 
0  15,39  Say  XptS 
0  16,39  Say  Xpt6 
0  52 , 3  Say  Curuser 

0  22,67  Get  Xuid2apt  Piet  ”9*’  Range  0,7 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

*  —  Store  data  from  Dbf  File  into  variable  names  — 

Da  Case 

Case  Xuid2opt  -  0 

*  —  Sign-OFF 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xiud2opt  "  1 

*  —  Patient  in  roam  1  bed  A 

Locate  For  Prm  -’l’.And.  Pbed  -’A’.And.  Pward  ”’2’ 
Ptregno  -  Xptlregno 
Ptselect 

Puiard  -C  ’  ’  +Prm3-C  ’  ’+PbedD-C’  ’+Xptl3 

□urpt  -  Xptl 
Ptfmpssn  -  XptlFmpssn 
IF  Qurpt  -  ” 

0  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  " 

0  24,41  Say  ’^Please  Press  Any  Key  To  Continue” 

Set  Console  OFF 
Wait 

Set  Console  On 
Loop 
EndiF 


If  Omodule  -  "D” 

Do  B: Doctor 
RBturn 
Else 

Do  B: Nurse 
Return 
Endif 
Return 

Cose  XuidSopt  *  E 

*  —  Patient  in  room  1  bed  B 

Locate  For  Prm  “’l’.And.  Pbed  -‘B’.And.  Puiard  -’2’ 
Ptregno  -  XptBregno 
Ptselect 

Puiard  -C’  ’+PrmD-C’  ’+Pbed3-C’  ’ +Xpt2 D 

□urpt  *  Xpt2 
Ptfmpssn  -  Xpt2fmpssn 
If  Qurpt  -  ” 

0  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  ” 

0  24,41  Say  "Please  Press  Any  Key  To  Continue” 

Set  Console  Off 
Wait 

Set  Console  On 
Loop 
Endif 

If  Omadule  -  "D" 

Do  B: Doctor 
Return 
Else 

Do  B; Nurse 
Return 
Endif 
Return 

Case  Xuid2opt  -  3 

*  —  Patient  in  roam  2  bed  A 

Locate  For  Prm*  ’2 ’.And.  Pbed" ’A’  .And.  Puiard"  ’2’ 
Ptregno  -  Xpt3regno 
Ptselect 

Puiard  -C’  ’+Prml-C’  ’+PbedD-C’  ’+Xpt3D 

Ourpt  "  Xpt3 
Ptfmpssn  -  Xpt3fmpssn 
If  Ourpt  -  ” 

0  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  ” 

0  24,41  Say  "Please  Press  Any  Key  To  Continue" 

Set  Console  Off 
Wait 

Set  Console  On 
Loop 
Endif 


.1  i,^i>  u&m . V -%■  »  iJkJUjkti 


If  Omodule  -  ”D” 

Do  B: Doctor 
Return 
Else 

Do  B: Nurse 
Return 
Endif 
Return 

Case  Xwd2opt  “  4 

*  —  Patient  in  room  2  bed  B 

Locate  For  Prm-  ’2 ’.And.  Pbed-  ’  B’.And.  Pward-  ‘S’ 
Ptregno  *  XptHregno 
Ptselect 

Pward  -C  '  *+Prm3-C*  ’-*-PbedD-[’  ‘+Xpt4D 

Ourpt  -  Xpt4 
Ptfmpssn  “  Xpt4fmpssn 
If  Ourpt  -  " 

0  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  ” 

0  24,41  Say  "Please  Press  Any  Key  To  Continue" 

Set  Console  Off 
Wait 

Set  Console  On 
Loop 
Endif 

If  Omodule  -  ”D” 

Do  B: Doctor 
Return 
Else 

Do  B: Nurse 
Return 
Endif 
Return 

Case  Xuid2opt  -  5 

•  —  Patient  in  room  3  bed  A 

Locate  For  Prm-  ’3 ’.And.  Pbed-  ’A ’.And.  Pward-  ‘S’ 
Ptregno  -  XptSregna 
Ptselect 

Pward  -C ’  ’+Prml-C’  ’+Pbed3-C’  ’+Xpt5D 

Ourpt  -  XptS 
Ptfmpssn  -  XptSfmpssn 
If  Ourpt  -  ” 

0  24, S  Say  "Sorry  No  Patient  In  That  Bed  —  ” 

0  24,41  Say  "PIbosb  PrBSS  Any  Key  To  Continue” 

Set  Console  Off 
Wait 

Set  Console  On 
Loop 
Endif 


IF  Omodule  -  ”D” 

Do  B: Doctor 
Return 
Else 

Do  B: Nurse 
Return 
Endif 
Return 

Case  Xuid2opt  -  B 

*  —  Patient  in  room  3  bed  B 

Locate  For  Prm-  ’3 ’.And.  Pbed**  'B’.And.  Puiard-  'S’ 
Ptregno  -  XptBregno 
Ptselect  ” ; 

Puiard  -C  ’  ’  +Prml-C  ’  ’-t-PbedD-C’  ’+XptBD 

Ourpt  *  XptB 
Ptfmpssn  -  XptBfmpssn 
IF  Ourpt  -  ” 

@  24,9  Say  "Sorry  No  Patient  In  That  Bed  —  ” 

0  24,41  Say  "Please  Press  Any  Key  To  Continue” 

Set  Console  OFF 
Wait 

Set  Console  On 
Loop 
EndiF 

IF  Omodule  -  "D” 

Do  B: Doctor 
Return 
Else 

Da  B: Nurse 
Return 
EndiF 
Return 

Case  Xuid2opt  *  7 

*  —  Master  Screen 
Return 

Endcase 

Release  Xwd2opt , Xptlregno , Xpt2regno , Xpt3regno 
Release  XptSregno, XptBregno, XptSFmpssn, XptBFmpssn 
Release  XptlFmpssn, Xpt2Fmpssn, Xpt3Fmpssn, Xpt4Fmpssn 
Release  Xpt4regno , Xptl , Xpt2 , Xpt3 , Xpt4 , Xpt5 , Xpt6 


Endda 


**•*  UARD3.PRG  *****»*****•*******•*****»*»*»**»**»»***•* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  11  January  1986 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Displays  patients  assigned  to  ward 

*  3E,  for  patient  selection. 

*  Input  Files  Used:  Uard3.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Pt_Info.Dbf 

*  Calling  RoutinB:  Master. Prg 

*  Routine  Called:  Doctor  or  Nurse. Prg 

*  Modification  Date:  3  March  1986 

*  —  Screen  input  program  for  LJard3  -- 

Do  Setup 

Public  Xwd3opt , Xpt7 , XptB , Xpt9 , XptlO , Xptll , Xptl2 

Public  Xpt7regno, XptBregno, Xpt9regno, XptlOregno 

Public  Xptllregno, Xptl2regno, Xpllfmpssn, Xpl2fmpssn 

Public  Xpt7fmpssn, XptSfmpssn, XptSfmpssn, XplOfmpssn 

*  —  Stare  specific  data  from  Dbf  file  into  variable 

*  —  names  — 

Use  B:Pt_Info 

Locate  For  Prm  -  ’ 1*  .And.  Pbed  -  ’A’  .And.  Pward  -  ’3' 
Xpt7  -  Pfname  -  C 1  '  +Plname3 

Xpt7regna  -  Pregna 
Xpt7fmpssn  -  Fmpssan 

Locate  For  Prm  -  ’1'  .And.  Pbed  ■  ’B’  .And.  Pward  -  ’3’ 
XptB  -  Pfname  -  C ’  ’  +Plname3 

XptBregno  -  Pregno 
XptSfmpssn  -  Fmpssan 

Locate  For  Prm  -  ’2’  .And.  Pbed  *  'A’  .And.  Pward  “  ’3’ 
Xpt9  -  Pfname  -  C  ’  ’  +Plname] 

XptBregno  -  Pregno 
Xpt9fmpssn  ■  Fmpssan 

Locate  Far  Prm  “  ’2’  .And.  Pbed  "  ’B’  .And.  Pward  “  ’3’ 
XptlO  ■  Pfname  -  C ’  ’  +Plname] 

XptlOregno  "  Pregno 
XplOfmpssn  -  Fmpssan 

Locate  For  Prm  -  ’3’  .And.  Pbed  *  ’A’  .And.  Pward  •  ’3’ 

Xptll  ■  Pfname  -  C ’  ’  +Plname3 

Xptllregno  *  Pregno 
Xpllfmpssn  -  Fmpssan 

Locate  For  Prm  ■  ’3’  .And.  Pbed  “  ’B’  .And.  Pward  *  ’3’ 

Xptl2  *  Pfname  -  C ’  ’  +Plnamel 

Xptl2regno  **  Pregno 
Xpl2fmpssn  "  Fmpssan 


Do  While  .T. 

*  —  Screen  Display  B:Ward3.Scr  — 


Set  Color  To  W+/B.W+/B 
Clear 

??  F lash+  ”S  .  B Ward3  .  Scr/  ” 
Set  Color  To  W+/B,W+/B 
Xuid3opt  -  7 
0  2,56  Say  Dated 
0  2,65  Say  Timed 
0  9 , 39  Say  Xpt7 
0  10,39  Say  XptB 
0  12,39  Say  Xpt9 
0  13,39  Say  XptlO 
0  15,39  Say  Xptll 
0  16,39  Say  Xptl2 
0  22,3  Say  Curuser 
0  22,67  Get  Xwd3opt  Piet  ’ 
Read 


Range  0,7 


*  —  Evaluate  action  based  on  the  option  selected 

*  —  Stare  data  from  Dbf  file  into  variable  names 

Do  Case 

Case  Xwd3apt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  Ta  Master 


Case  XwdBopt  -  1 

*  --  Patient  in  room  1  bed  A 

Locate  Far  Prm-  ’ l’.And.  Pbed“  ’A’. And.  Pward-  ’3’ 
Ptregno  “  Xpt7regna 
Ptselect 

Pward  -C  ’  ,+Prm3-C’  ’+PbedD-C’  ’+Xpt7] 

Qurpt  “  Xpt7 
Ptfmpssn  -  Xpt7fmpssn 
IF  Ourpt  “  ” 

Wait  "Sorry  No  Patient  In  That  Bed 
-  Please  Press  A  Key  To  Continue" 

Loop 

Endif 

If  Omodule  -  ”D” 

Do  B: Doctor 
Return 


Do  B: Nurse 
Return 
Endif 
Return 

Case  XuidSopt  -  2 

*  —  Patient  in  roam  1  bed  B 

Locate  For  Prm-  'l*.  And.  Pbed-  ’ B’.And.  Puiard-  ’3’ 
Ptregno  -  XptBregno 
Ptselect ; 

Puiard  -C  ’  ’+Prm3-C’  ’+PbBd3-C’  ’+Xpt83 

Ourpt  -  XptB 
Ptfmpssn  -  XptBfmpssn 
IF  Ourpt  -  ” 

Wait  ’’Sorry  No  Patient  In  That  Bed 

-  Please  Press  A  Key  To  Continue” 

Loop 

Endif 

If  Omodule  -  ”D” 

Do  B: Doctor 
Return 
Else 

Do  B: Nurse 
Return 
Endif 
Return 

Case  Xwd3opt  -  3 

*  —  patient  in  room  2  bed  A 

Locate  Far  Prm-  ’2'. And.  Pbed-  ’A’. And.  Pward-  ’3’ 
Ptregno  -  XptBregno 
Ptselect 

Piuard  -C  ’  ’+Prm3-C’  ’+Pbed3-C’  ’+Xpt93 

Ourpt  “  Xpt9 
Ptfmpssn  -  XptBfmpssn 
IF  Ourpt  -  ” 

Wait  ’’Sorry  No  Patient  In  That  Bed 

-  Please  Press  A  Key  To  Continue” 

Loop 

Endif 

If  Omodule  -  "D” 

Do  B: Doctor 
Return 
EIsb 

Do  B: Nurse 
Return 
Endif 
Return 


Case  Xuid3opt  -  4 

*  —  Patient  in  room  2  bed  B 

Locate  For  Prm-  ’2’. Pnd.  Pbed-  ’B’.And.  Pward-  ’3’ 

Ptregno  -  XptlOregno 
■* • 

Puiard-C  ’  '  ’+Prm3-C’  *+Pbed3-C’  ’+XptlOD 

□urpt  -  XptlO 
Ptfmpssn  -  XplOfmpssn 
IF  Ourpt  “  ”  ” 

Wait  "Sorry  No  Patient  In  That  Bed 

-  Please  Press  A  Key  To  Continue” 

Loop 

Endif 

IF  Omodule  -  "D” 

Do  B: Doctor 
Return 
Else 

Do  B: Nurse 
Return 
EndiF 
Return 

Case  Xwd3apt  -  5 

*  —  Patient  in  room  3  bed  A 

Locate  For  Prm-  '3 ’.And.  Pbed-  ’A’. And.  Pward-  ’3’ 
Ptregno  -  Xptllregno 

Pt36 lBCt 

Pward- C ’ '  ’+Prm3-C’  ’ +Pbed]-[ ’  ’+Xptlll 

□urpt  -  Xptll 
PtFmpssn  -  XpllFmpssn 
IF  Ourpt  -  ” 

Wait  "Sorry  No  Patient  In  That  Bed 

-  Please  Press  A  Key  To  Continue" 

Loop 

EndiF 

IF  Omodule  -  ”D" 

Do  B: Doctor 
Return 
Else 

Do  B: Nurse 
Return 
EndiF 
Return 

Case  XwdSopt  -  B 

*  --  Patient  in  roam  3  bed  B 

Locate  For  Prm-  ’3’. And.  Pbed-  ’B’.And.  Pward-  ’3’ 
Ptregno  -  Xptl2regno 
Ptselect  -; 

Pward-C ’  ’+Prm3-C’  ’+PbedD-C’  ’+Xptl2D 


Ourpt  -  Xptl2 
Ptfmpssn  -  Xpl2fmpssn 
If  Ourpt  "  ”  " 

Wait  ’’Sorry  No  Patient  In  That  Bed 
-  Please  Press  A  Key  To  Continue" 

Loop 
End  if 

If  Qmadule  -  ”0” 

Do  B: Doctor 
Return 
Else 

Do  B: Nurse 
Return 
Endif 
Return 

Case  XwdSopt  “  7 

m  —  Master  Screen 
Return 

Endcase 

Release  XudBopt , Xpt7, Xpt8, Xpt9, XptlO, Xptll , Xptl2 
Release  Xpt7regna, XptBregno, XptSregno, XptlOregno 
Release  Xptllregno, Xptl2regno, Xpllfmpssn, Xpl2fmpssn 
Release  Xpt7f mpssn , XptBf mpssn , XptSfmpssn , XplOf mpssn 

Endda 
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****  DOCTOR. PRG 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  27  November  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Menu  for  selecting,  viewing  or 

*  modifying  the  doctor's  orders. 

*  Input  Files  Used:  Doctor. Prg  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  U)ard2  or  UJard3.Prg 

*  Routine  Calls:  Doc_menu,  Transfer  or  Discont.Prg 

*  Modification  Date:  4  February  1986 


*  Purpose: 

* 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Calls: 

*  Modification  Date: 


*  —  Screen  Input  Program  For  Doctor  — 

* 

Do  Setup 

Public  Xdocopt , Xmptfmpssn , Dmenu 
Dmenu  -  Spaced! 

Do  While  .T. 

*  —  Screen  Display  A: Doctor. Scr  — 

Set  Color  To  UI+/B ,  UJ+/B 
Clear 

??  Flash* ”S. A: Doctor .Scr/” 

Set  Color  To  LJ+/B ,  U1+/B 
Xdocopt  -  6 
Do  Headings 

@  22 , 67  Get  Xdocopt  Piet  ”9”  Range  0,6 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 

Case  Xdocopt  ■  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdocopt  *  1 

*  —  Order  Entry 
Do  B:Doc_Menu 

If  Dmenu  -  ”1” 

Loop 

Else 
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Return 

Endif 

Case  Xdocopt  ■  2 

*  —  Admit  /  Transfer  /  Discharge  Patient 
Do  B: Transfer 

If  Dmenu  -  ”1” 

Loop 

Else 

Return 

Endif 

Case  Xdocopt  -  3 

*  —  Review  Medical  Orders 
Clear 

Set  Color  To  W+/B.W+/B 
0  1,22  Say  ’’Patient  Orders  For:” 

0  1,42  Say  Ourpt 

0  3,10  Say  ’’Press  —  Ctrl  and  S  —  Keys  to  Pause 

0  3,47  Say  ’’The  Scrolling  If  Necessary” 

Use  B: Orders 

Store  ”’”  +  Ptfmpssn  +  To  Xmptfmpssn 

Report  Form  B:0rd  For  Fmpssn  -  SXmptfmpssn  .And. 

Module  #  ’N’ 

Wait 

Loop 

Case  Xdocopt  -  4 

*  —  Print  Medical  Orders 

0  24,0  Say  "Turn  On  Vaur  Printer,  ” 

0  24,22  Say  "Then  Hit  Any  Key  To  Print” 

Set  Console  Off 
Wait 

Set  Console  On 
Clear 

0  12,30  Say  "Printing,  Please  Wait" 

Set  Console  OFF 

Set  Device  To  Print 

0  1,22  Say  "Patient  Orders  For:” 

0  1,42  Say  Ourpt 
Set  Device  To  Screen 
Use  B: Orders 

Stare  ”’’’  +  Ptfmpssn  +  .  To  Xmptfmpssn 

Report  Form  B:0rd  Noeject  To  Print  Far; 

Fmpssn  -  aXmptfmpssn  .And.  Module  #  ’N’ 

Set  Console  On 

0  24,0  Say  "Finished  Printing,  ” 

0  24,19  Say  "Hit  Any  Key  To  Continue" 

Set  Console  OFF 


Set  Console  On 
Loop 

Case  Xdocopt  “  5 

•  --  Discontinue  An  Order 
Do  B:Discont 

IF  Dmenu  -  ”1’* 

Loop 

Else 

Return 

Endif 

Case  Xdocopt  -  S 

*  —  Master  Screen 
Return 

Endcase 

Release  Xdocopt , Xmptfmpssn 


Enddo 


*****  D0CJ1ENU.PRG  ft*************************************** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  DSN 

*  Date:  27  November  1905 

*  Screen  Generated  By:  The  Software  Battling  Company 

*  OF  New  York,  cl385 

*  Purpose:  Menu  of  ten  order  categories  for 

*  doctor  to  choose  from. 

*  Input  Files  Used:  Doc_t1enu.Scr  and  Drproc.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Doctor. Prg 

*  Routine  Called:  Activity , Diet , IUA, Lab, Monitor , Phaml 

*  Xray,Lung,US  or  Routine. Prg 

*  Modification  Date:  4  February  1986 

* 

*  —  Screen  Input  Program  For  Doc.Menu  — 

» 

Do  Setup 

Public  Xdocmenopt 
Do  UJhile  .T. 

*  —  Screen  Display  A: Dac_Menu .Scr 

Set  Color  Ta  UI+/B.W+/B 
Clear 

??  Flash+MS.  A :Dac_Menu  .Scr/*’ 

Set  Color  Ta  UI+/B.U+/B 
Xdocmenopt  -  11 
Do  Headings 

0  22,66  Get  Xdocmenopt  Piet  ”99”  Range  0,12 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xdocmenopt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdocmenopt  -  1 
Do  B: Activity 
If  Dmenu  -  ”1” 


Return 
End  if 

Case  Xdocmenopt 
Do  B:Oiet 
If  Dmenu  -  "1 
Loop 
Else 
Return 
Endif 

Case  Xdocmenopt 
Do  B: IUA 
If  Dmenu  “  ”1 
Loop 
Else 
Return 
Endif 

Case  Xdocmenopt 
Do  B:Lab 
If  Dmenu  -  ”1 
Loop 
Else 
Return 
Endif 

Case  Xdocmenopt 
Do  B: Monitor 
If  Dmenu  -  ”1 
Loop 
Else 
Return 
Endif 

Case  Xdocmenopt 
Do  B:Phaml 
If  Dmenu  -  ”1 
Loop 
Else 
Return 
Endif 

Case  Xdocmenopt 
Do  B:Xray 
If  Dmenu  -  "1 
P 


Return 

Endif 


Case  Xdocmenopt  -  8 
Do  B:Lung 
If  Dmenu  -  ”1” 

Loop 

Else 

Return 

Endif 

Case  Xdocmenopt  -  9 
Do  B.-US 
If  Dmenu  -  ”1” 

Loop 

Else 

Return 

Endif 

Case  Xdocmenopt  -  10 
Da  B: Routine 
If  Dmenu  -  ”1” 

Loop 

Else 

Return 

Endif 

Case  Xdocmenopt  -  11 

•  —  Doctor’s  naster  Screen 
Dmenu  -  "l" 

Return 

Case  Xdocmenopt  ”  12 

*  —  Master  Screen 
Store  ’  ’  la  Dmenu 
Return 

Endcase 

Release  Xdocmenopt 


Enddo 


****  ACTIVITY. PRG  *#**»••«•****»***••******«*******»••* 

m  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  29  November  1905 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Determine  activity  orders  of  the 

*  patient. 

*  Input  Files  Used:  Activity. Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc_Menu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  1906 

* 

*  —  Screen  Input  Program  For  Activity  — 

* 

Do  Setup 
Public  Xactopt 

Da  While  .T. 

*  —  Screen  Display  A : Activity . Scr  — 

Set  Color  To  UI+/B,  W+/B 
Clear 

??  Flash* ”S.  A.-  Activity  .Scr/” 

Set  Color  To  U)+/B,UJ+/B 
Xactopt  -  13 
Do  Headings 
Do  Startup 

0  22,66  Get  Xactopt  Piet  "9S”  Range  0,14 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 

Case  Xactopt  “  0 
*  --  Sign-Off 
Close  Databases 
Close  Procedure 
Release  Ali 
Return  To  Master 

Case  Xactopt  -  1 

Morder  -  ’’Ambulate  ad  lib” 

Do  Replaord 


Case  Xactopt  -  2 

Morder  ■  ’’Ambulate  w/  Assistance” 

Do  B:Time 

Da  Case 

Case  CTimeopt  <  5  .Or.  Timeapt  -  413 

*  —  No  precise  Frequency  given 
Passdata  -  ”051  18’’ 

Ptpaint  -  0 

Case  CTimeopt  >  4  .And.  Timeopt  <  223 

*  —  X  1 

Passdata  -  ”Q51  11” 

Ptpaint  -  2 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  —  X  2  or  BID 
Passdata  -  ”Q51  12” 

Ptpaint  “  4 

Case  CTimeopt  >  24  .And.  Timeapt  <  313 

*  —  X  3  or  TID 
Passdata  -  ”051  13" 

Ptpoint  •  B 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  X  4  or  QID 
Passdata  -  ”051  14" 

Ptpoint  -  8 

Case  CTimeopt  *  34  .Or.  TimBOpt  -  353 

*  —  X  6  or  Q4h 
Passdata  -  ”051  15” 

Ptpaint  -  12 

Case  CTimeopt  -  38  .Or.  Timeopt  -  373 

*  X  12  or  Q2h 
Passdata  -  ”051  16” 

Ptpoint  ■  24 

Case  CTimeopt  -  38  .Or.  Timeopt  “  383 

*  —  X  24  or  Qlh 
Passdata  ■  "051  17” 

Ptpoint  -  48 

Endcase 

Da  Replaord 
Loop 

Case  Xactopt  -  3 

Harder  -  "Strict  Bedrest” 

Do  Replaord 
Loop 

Case  Xactopt  -  4 

Harder  •  "Bedrest  ui/  BRP” 


Do  Rsplaord 
Loop 

Cqs8  Xactopt  “  5 

norder  -  ’’Bedside  Commode” 

□o  Replaord 
Loop 

Cose  Xactopt  -  B 

norder  -  ’’00B  to  Stretcher  w/  Assist” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  S5  .Dr.  Timeopt  “  411 

*  —  Less  than  x  3  or  TID 
Passdata  -  ”Q51  2” 

Ptpoint  ■  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  341 

*  —  X  3  or  less  than  Q4h  Cx  61 
Passdata  “  ”Q51  3” 

Ptpoint  “  2 

Case  CTimeopt  “34  .Or.  Timeopt  “  35 D 

*  —  X  6  or  Q4h 
Passdata  -  ”051  4” 

Ptpoint  “  4 

Case  CTimeopt  “  36  .Or.  Timeopt  -  371 

*  —  X  12  or  Q2h 
Passdata  -  ”051  5” 

Ptpoint  -  0 

Case  CTimeopt  -  30  .Or.  Timeopt  “  391 

*  —  X  24  ar  Qlh 
Passdata  -  ”051  6” 

Ptpoint  “  IB 

Endcase 

Do  Replaord 
Loop 

Case  Xactopt  -  7 

Morder  -  ’’Dangle  Legs” 

Do  B:Time 
Do  Replaord 
Loop 

Case  Xactopt  -  0 

norder  “  ’’Keep  on  Back” 

Do  Replaord 


Case  Xactopt  -  9 

Marder  “  ’’bay  Shouier” 

Do  Replaord 
Loop 

Case  Xactopt  -  10 

border  -  ’’Turn  Patient” 

Do  B:Time 
Da  Replaord 
Loop 

Case  Xactopt  -  11 

border  ■  ’’Turning  Frame” 

Da  B:Time 

Do  Case 

Case  CTimeapt  <  36  .Dr.  Timeopt  “  413 

*  —  Less  than  QBh 
Passdata  -  ”Q25  1” 

Ptpoint  -  0 

Case  CTimeopt  -  36  .Or.  Timeopt  -  373 

*  —  Q2h  or  x  12 
Passdata  -  ”Q25  2” 

Ptpoint  -  14 

Case  CTimeopt  -  30  .Or.  Timeopt  -  393 

*  —  Qlh  or  x  24 
Passdata  -  ”Q25  3" 

Ptpoint  -  28 

Endcase 

Do  Replaord 
Loop 

Case  Xactopt  -  12 

border  ■  ”Up  in  Chair  ui/  Assist” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  -  413 

*  —  Less  than  x  3  or  TID 
Passdata  -  "Q51  1" 

Ptpoint  “  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  343 

*  —  X  3  or  less  than  04h  Cx  63 
Passdata  -  ”Q51  7” 

Ptpoint  ■  2 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  —  X  6  or  Q4h 
Passdata  -  ”Q51  8” 

Ptpoint  -  4 


Cosb  CTimsopt  -  36  .Or.  Timeopt 

*  —  X  12  or  Q2h 
Passdata  -  "Q51  9" 

Ptpoint  -  8 

Case  CTimeopt  -  3B  .Or.  Timeapt 

*  —  X  24  or  Qlh 
Passdata  -  ”Q51  10'* 

Ptpoint  -  16 

Endcase 

Oa  Replaord 
Loop 

Case  Xactopt  -  13 

*  --  Doctor’s  Order  Screen 
□menu  “  ’ 1  ’ 

Return 

Case  Xactopt  -  14 

*  —  Master  Screen 

Dmenu  “  ’  ’ 

Return 

Endcase 

Release  Xactopt 


Endda 
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TIME.PRG  ***»•*•*****************••****•***<*•****•*•* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  29  November  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Determine  the  time  of  orders  for 

*  the  patient. 

*  Input  Files  Used:  Time.Scr  and  Pracfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  All  Orders  and  Ncaredb.Dbf  modules. 

*  Routine  Called:  Timehelp.Prg 

*  nadif ication  Date:  4  February  1996 

*  —  Screen  Input  Program  For  Time  -- 
Do  Setup 

Public  Timeopt , Xtimetime 
Xtimetime  ■  Space! 4 3 

Do  While  .T. 

*  —  Screen  Display  A: Time.Scr  — 

Set  Color  To  W+/B.U+/B 
Clear 

??  Flash+”S. A: Time.Scr/" 

Set  Color  To  U+/B,W+/B 
Timeopt  -  41 
Do  Headings 

0  22,66  Get  Timeopt  Piet  "99”  Range  1,41 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Timeopt  -  1 
Ofreq  -  "PRN” 

Return 

Case  Timeopt  •  2 

Ofreq  -  "Q  1-2  Hr  PRN" 

Return 

Case  Timeopt  -  3 

Ofreq  -  "Q  2-3  Hr  PRN" 

Return 


Case  Timeopt  -  4 

Ofreq  -  ”Q  3-4  Hr  PRN” 

Return 

Case  Timeopt  “  5 
Ofreq  -  ”0n  Call” 

Todayonly  -  "T” 

Return 

Case  Timeopt  -  6 
Ofreq  -  "QD" 

Return 

Case  Timeopt  ■  7 
Ofreq  -  ”HS” 

Return 

Case  Timeopt  ■  8 
Ofreq  -  ”x  1" 

Todayonly  -  ”T” 

Return 

Case  Timeopt  ”  9 

*  —  Today  8  - 

0  17,8  Get  Xtimetime  Piet  "9899 
Read 

Ofreq  -  ’’Today  0  ”  ♦  Xtimetime 
Todayonly  -  ”T’’ 

Return 

Case  Timeopt  "  10 

Ofreq  -  "Daily  0  0200” 

Return 

Case  Timeopt  -  11 

Ofreq  -  "Daily  0  0400” 

Return 

Case  Timeopt  -  12 

Ofreq  -  "Daily  0  0600" 

Return 

Case  Timeopt  -  13 

Ofreq  -  "Daily  8  0B00” 

Return 

Case  Timeopt  -  14 

Ofreq  -  "Daily  0  1000" 

Return 


Case  Timeopt  ■  15 

Ofreq  -  "Daily  S  1200' 
Return 

Case  Timeopt  “  16 

Ofreq  -  "Daily  B  1400' 
Return 

Case  Timeopt  ■  17 

Ofreq  ■  "Daily  B  1600 
Return 

Case  Timeopt  -  16 

Ofreq  -  "Daily  B  1800 
Return 

Case  Timeopt  •  19 

Ofreq  -  "Daily  S  2000 
Return 

Case  Timeopt  -  20 

Ofreq  -  "Daily  S  2200 
Return 

Case  Timeopt  -  21 

Ofreq  ■  "Daily  S  2400 
Return 

Case  Timeopt  -  22 
Ofreq  -  "BID” 

Return 

Case  Timeopt  -  23 
Ofreq  -  ”Q  12  Hr” 
Return 

Case  Timeopt  ”  24 
Ofreq  -  ”x  2” 
Todayonly  -  "T" 

Return 

Case  Timeopt  “  25 
Ofreq  -  ”TID" 

Return 

Case  Timeopt  “  26 
Ofreq  -  ”AC” 

Return 


Case  Timeopt 
e 

Return 

Case  Timeopt  “  28 
OFreq  -  ”Q  8  Hr 
Return 

Case  Timeopt  ■  29 


Todayonly  -  ”T 
Return 

Case  Timeopt  -  30 
OFreq  -  ”Q  ShiFt 
Return 

Case  Timeopt  -  31 


Return 

Case  Timeopt  -  32 
OFreq  -  *’Q  6  Hr 
Return 

Case  Timeopt  *  33 
0 

Todayonly  -  "T" 
Return 

Case  Timeopt  •  34 
OFreq  -  ”0  4  Hr 
Return 


Case  Timeopt 
0 

Todayonly  1 
Return 


-  35 


Case  Timeopt  -  36 
OFreq  -  "Q  2  Hr 
Return 


Case  Timeopt 
0 

Todayonly 
Return 


-  37 


Case  Timeopt  ■  38 
Ofreq  -  "Q  1  Hr” 

Return 

Case  Timeopt  “  39 
Ofreq  -  ”x  24” 

Todayonly  “  ”T” 

Return 

Case  Timeopt  "  40 

*  —  Help 

Do  B:Timehelp 
Loop 

Case  Timeopt  -  41 

*  —  Return  to  Calling  Screen 
Return 

Endcase 

Release  Xtimetime 


Enddo 


«**»  TlflEHELP  .  PRG  **** 

*  Author: 

*  Data: 

*  Screen  Generated  By : 

* 

*  Purpose: 

* 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


Gary  R.  Harmeyer  LCDR  NC  USN 
1  December  19B5 
The  Software  Bottling  Company 
Of  New  York,  clS85 
Brief  on-line  help  facility  for 
Time . Prg . 

Timehelp.Scr  and  Procfile.Prg 
None 

Time . Prg 
None 

26  January  1S06 


*  —  Screen  Input  Program  For  Timehelp  — 

* 

Da  Setup 


Do  While  .T. 


*  —  Screen  Display  A : Timehelp . Scr  — 

Set  Color  To  W+/B , W+/B 
Clear 

??  Flash-*- ”S.  A  .-Timehelp.Scr/” 

@24,0 

0  24,37  ’’Press  Any  Key  To  Continue” 

Set  Console  Off 

Wait 

Set  Console  On 
Return 


Enddo 


*•••  DIET . PRG  ••••••••••••••••••••••••••*•••••••*»•••»» 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  27  November  1905 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9BS 

*  Purpose:  Determine  the  diet  orders  of  the 

*  patient. 

*  Input  Files  Used:  Diet.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc_Menu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  1906 

*  —  Screen  Input  Program  For  Diet  — 

Do  Setup 
Public  Xdietopt 

Do  kJhile  .T. 

•  —  Screen  Display  A. -Diet.Scr  — 

Set  Color  To  UJ+/B ,  W+/B 
Clear 

??  Flash-*- ”S.  A:  Diet  .Scr/” 

Set  Color  To  UJ+/B ,  UJ+/B 
Xdietopt  -  19 
Do  Headings 
Do  Startup 

0  22,66  Get  Xdietopt  Piet  ”99”  Range  0,20 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 

Case  Xdietopt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdietopt  ■  1 

Morder  ■  ’’Diet  As  Tolerated" 

Do  Replaord 


Case  Xdietopt  -  2 

Morder  -  "Clear  Liquids  Diet" 

Do  Replaord 
Loop 

Case  Xdietopt  ■*  3 

Morder  -  "Diabetic  Diet” 

Do  Replaord 
Loop 

Case  Xdietopt  -  4 

Morder  “  “Fat-controlled  Diet” 

Do  Replaord 
Loop 

Case  Xdietopt  -  5 

Morder  *  "Full  Liquid  Diet” 

Do  Replaord 
Loop 

Case  Xdietopt  -  6 

Morder  -  "Infant/Neonat  Bottle  xl” 
Passdata  -  ”029  1” 

Ptpoint  *  2 
Do  Replaord 
Loop 

Case  Xdietopt  -  7 

Morder  -  "Infant/Neonat  Bottle  xB” 
Passdata  -  "029  2” 

Ptpoint  »  12 
Do  Replaord 
Loop 

Case  Xdietopt  -  8 

Morder  -  "Infant/Neonat  Bottle  xl2" 
Passdata  -  ”029  3” 

Ptpoint  •  24 
Do  Replaord 
Loop 

Case  Xdietopt  -  9 

Morder  “  "Mechanical  Soft  Diet” 

Do  Replaord 
Loop 

Case  Xdietopt  -  10 

Morder  ■  "Na  Controlled  Diet” 

Do  Replaord 
Loop 


Case  Xdietopt  -  11 
Harder  -  "NPO" 

Do  Replaord 
Loop 

Case  Xdietopt  ■  12 

Horder  -  ”NPO  p  2400” 

Do  Replaord 
Loop 

Case  Xdietopt  *  13 

Harder  ■  "NPO  ui/  Ice  Chips" 

Do  Replaord 
Loop 

Case  Xdietopt  -  14 

Horder  ■  "Regular  Diet” 

Da  Replaord 
Loop 

Case  Xdietopt  -  15 

Horder  -  “Renal/Liver  Disease  Diet” 

Do  Replaord 
Loop 

Case  Xdietopt  -  16 

Horder  -  "T  &  A  Diet” 

Do  Replaord 
Loop 

Case  Xdietopt  -  17 

Horder  -  ’’Continuous  Tube  Feedings” 

Do  8: Time 

Do  Case 

Case  CTimeopt  <  6  .Or.  Timeapt  -  413 

*  —  Less  than  1  bag  per  24  hours 
Passdata  •  "Q27  1” 

Ptpoint  -  0 

Case  CTimeopt  >  5  .And.  Timeopt  <  223 

*  —  1  bag  per  24  hours 
Passdata  ■  ”Q27  2” 

Ptpoint  -  2 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  —  2  bags  per  24  hours 
Passdata  “  ”027  3” 

Ptpoint  -  4 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  --  3  bags  per  24  hours 


Possdata  -  ”027  4” 

Ptpoint  "  B 

Case  CTimeopt  >  30  .And.  Timeopt  <  34] 

*  —  4  bags  per  24  hours 
Passdata  ”  ”Q27  5" 

Ptpoint  -  0 

Case  CTimeopt  “  34  .Or.  Timeopt  "  35D 

*  6  bags  per  24  hours 
Passdata  «  "Q27  6” 

Ptpoint  -  12 

Case  CTimeopt  "  3B  .Or.  Timeopt  “  37] 

*  —  12  bags  per  24  hours 
Passdata  -  ”Q27  7” 

Ptpoint  -  24 

Case  CTimeopt  *■  30  .Or.  Timeopt  "  39] 

*  --  24  bags  per  24  hours 
Passdata  -  ”027  0” 

Ptpoint  -  40 

Endcase 

Do  Replaord 
Loop 

Case  Xdietopt  -  10 

harder  “  "Bolus  Tube  Feedings” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  -  41] 

*  —  Less  than  Q4h  or  x  6 
Passdata  "  "Q27  0" 

Ptpoint  -  0 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35] 

*  —  Q4h  or  x  B 
Passdata  ■  ”Q27  10” 

Ptpoint  -  5 

Case  CTimeopt  "  3B  .Or.  Timeopt  -  37] 

*  —  Q2h  or  x  12 
Passdata  -  ”027  11” 

Ptpoint  -  10 

Case  CTimeopt  “  30  .Or.  Timeopt  -  39] 

*  —  Qlh  or  x  24 
Passdata  -  ”027  12" 

Ptpoint  -  20 

Endcase 


Do  Replaord 


Case  XdiBtopt  -  19 

•  —  Doctor’s  Order  Screen 
Dmenu  -  "1” 

Return 

Case  Xdietopt  -  20 

*  —  Master  Screen 
Dmenu  -  “  ” 

Return 

Endcase 

Release  Xdietopt 


Enddo 


****  IUA.PRG  ••»••**•••»••»***••••*••••*••••»••••••••••• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  December  1885 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  C19B5 

*  Purpose:  Determine  first  stage  IU  needs  of 

*  the  patient. 

*  Input  Files  Used:  IUA.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine.-  Doc_Menu.Prg 

*  Routine  Called:  IUB.Prg 

*  Modification  Date:  4  February  1386 

* 

*  --  Screen  Input  Program  For  IUA  — 

m 

Da  Setup 

Public  Xivaapt , Morderl 
Da  While  .T. 

*  --  Screen  Display  A: IUA.Scr  — 

Set  Color  To  UI+/B ,  UJ+/B 
Clear 

??  Flash-*- ”S  .  A :  IUA.Scr/” 

Set  Color  To  U1+/B  ,  W+/B 
Xivaapt  -  03 
Do  Headings 
Do  Startup 

0  EE , 66  Get  Xivaopt  Piet  ”38”  Range  0,10 
Read 

•  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xivaopt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xivaopt  -  1 

Morderl  -  "Start  IU  of" 

Passdata  -  ”Q30  1" 

Ptpoint  -  2 
Todayonly  -  "T" 


203 


Do  B: IUB 
Loop 

Case  Xivaopt  -  2 

florderl  ■  "Alternate  IU  w/” 

Do  B: IUB 

Loop 

Case  Xivaopt  -  3 

florderl  -  "Follow  IU  w/" 

Do  B: IUB 
Loop 

Case  Xivaopt  -  4 

florderl  -  "Interrupt  IU  for 

Do  B: IUB 

Loop 

Case  Xivaopt  -  5 

florderl  -  "Start  2nd  IU  of” 
Passdata  -  ”030  1" 

Ptpaint  “  2 
Todayonly  ■  ”T” 

Do  B: IUB 
Loop 

Case  Xivaopt  -  6 

Harder  -  "Discontinue  IU” 

Do  Replaord 
Loop 

Case  Xivaopt  -  7 

florder  -  "Heparin  Lock" 
Passdata  “  "Q73  1" 

Ptpaint  -  4 
Do  Replaord 
Loop 

Case  Xivaopt  -  B 

florder  **  "Hultilumen  Line” 
Passdata  -  "Q72  3” 

Ptpaint  "  B 
Do  Replaord 
Loop 

Case  Xivaopt  -  9 

*  —  Doctor's  Order  Screen 
Dmenu  -  "1” 

Return 


IUB.PRG  *•*****•*•*****•******••***•••»*****•••*•**• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Df  New  York,  cl9B5 

*  Purpose:  The  doctor  selects  an  IU  solution 

*  for  the  patient. 

*  Input  Files  Used:  IUB.Scr  and  Pracfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  IUA.Prg 

*  Routine  Called:  None 

*  Modification  Date:  19  February  1988 

*  —  Screen  Input  Program  For  IUB  -- 
Do  Setup 

Public  Xivbopt , Blood 
Blood  -  .F. 

Do  While  .T. 

*  —  Screen  Display  A: IUB.Scr  — 

Set  Color  To  W+/B,W+/B 
Clear 

??  Flash+"S. A: IUB.Scr/” 

Set  Color  To  W+/B.W+/B 
Xivbopt  -  1 
Da  Headings 

@  22,67  Get  Xivbopt  Piet  ”9”  Range  1,8 
Read 

•  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xivbopt  -  1 

Morder  “  horded  ”  D5/.45  NaCl” 

Do  B : I UC 
Return 

Case  Xivbopt  -  2 

Morder  “  Marderl  +  ”  RL” 

Do  B: IUC 
Return 

CasB  Xivbopt  ■  3 

Morder  -  Morderl  +  ”  D5RL” 


DO  B: IUC 
Return 

Case  Xivbapt  ■  4 

Harder  ■  Marderl  +  ”  D5W" 

Do  B: IUC 
Return 

Case  Xivbopt  -  5 

Harder  -  Harder 1  +  ”  NS” 

Da  B: IUC 
Return 

Case  Xivbopt  -  S 

Horder  -  Harder 1  +  ”  DSNS” 

Do  B: IUC 
Return 

Case  Xivbapt  -  7 

Harder  -  Harderl  +  "  Whale  Bid” 
Blaad  "  .T. 

Da  B: IUC 
Return 

Case  Xivbapt  -  0 

Harder  -  Harderl  +  ”  Packed  Cells” 
Blaad  -  .T. 

Do  B: IUC 
Return 

Endcase 

Release  Xivbapt 


Endda 


*****  IUC.PRG  ******** 

*  Author: 

*  Dote: 

*  Screen  Generated  By: 

*  Purpose: 

*  Input  Files  Used: 

*  Output  FjIbs  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 

*  —  Screen  Input  Program  For  IUC  -- 

Do  Setup 
Public  Xivcopt 

Do  While  .T. 

*  —  Screen  Display  A:IUC.Scr  -- 

Set  Color  To  W+/B ,  UI+/B 
Clear 

??  Flash+”S.A: lUC.Scr/” 

Set  Color  To  W+/B , UJ+/B 
Xivcopt  -  G 
Da  Headings 

0  22 , 67  Get  Xivcopt  Piet  ”9”  Range  1,B 
Read 


Gary  R .  Harmeyer  LCDR  NC  USN 
8  December  1985 
The  Software  Bottling  Company 
Of  New  York,  C1985 
Determine  IU  infusion  rate  For 
patient  orders. 

IUC.Scr  and  Procfile.Prg 

None 

IUB.Prg 

None 

4  February  1986 


w 


*  —  Evaluate  action  based  on  the  option  selected 
Do  Case 

Case  Xivcopt  •  1 

Ofreq  ■  ’’Infuse  o  30M" 

If  Blood  -  .T. 

Passdata  *  ”Q75  1” 

Ptpoint  •  Ptpoint  2 
Else 

Passdata  ■  "Q72  3” 

Ptpoint  -  Ptpoint  +  B 
Endif 

Do  Replaord 
Return 

Case  Xivcopt  -  2 

Ofreq  ■  ’’Infuse  a  lHr” 


203 


If  Blood  -  .T. 

Passdota  -  “Q7S  1" 
Ptpoint  “  Ptpoint  +  2 
Else 

Passdota  -  "Q72  3” 
Ptpoint  "  Ptpoint  +  8 
Endif 

Do  Replaord 
Return 

Case  Xivcopt  •  3 

Ofreq  “  "Infuse  o  2Hr  ” 
If  Blood  -  .T. 

Passdota  -  ”075  1” 
Ptpoint  ■  Ptpoint  2 
Else 

Passdota  ■  “Q72  3” 
Ptpoint  *  Ptpoint  +  8 
Endif 

Do  Replaord 
Return 

Case  Xivcopt  ■  4 

Ofreq  ■  "Infuse  o  4Hr” 
If  Blood  -  .T. 

Passdota  -  "Q75  1" 
Ptpoint  *  Ptpoint  2 
Else 

Passdata  -  "Q72  3" 
Ptpoint  ■  Ptpoint  8 
Endif 

Da  Replaord 
Return 

Case  Xivcopt  •  5 

Ofreq  ■  "Infuse  a  6Hr" 
Passdata  -  "Q72  2" 
Ptpoint  -  Ptpoint  ♦  B 
Da  Replaord 
Return 

Case  Xivcopt  *  6 

Ofreq  *  "Infuse  o  8Hr” 
Passdata  -  "Q72  2" 
Ptpoint  -  Ptpoint  6 
Do  Replaord 
Return 

Case  Xivcopt  -  7 

Ofreq  -  "Infuse  o  12H” 


PassdQta  -  ”Q72  1” 
Ptpoint  “  Ptpoint  +  4 
□a  Replaord 
Return 

Case  Xivcopt  ■  8 

Ofreq  -  ’’InfusB  o  24H 
Passdata  -  ”Q72  1" 
Ptpoint  -  Ptpoint  +  4 
Do  Replaord 
Return 

Endcase 

Release  Xivcopt , Blood 


Enddo 


**«*  LAB.PRG  *«•»•*•**•*«****••*♦*********»*•***•*••***•* 

*  Author :  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  8  December  1985 

*  Screen  Generated  By:  The  Software  Battling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Determine  laboratory  orders  of  the 

*  patient. 

*  Input  Files  Used:  Lab.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders . Dbf 

*  Calling  Routine:  Doc_riBnu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  1986 

m 

*  —  Screen  Input  Program  For  Lab  -- 

* 

Do  Setup 
Public  Xlabopt 

Do  While  .T. 

*  --  Screen  Display  A:Lab.Scr  — 

Set  Color  To  U+/B , U+/B 
Clear 

??  Flash+”S . A : Lab . Scr/ " 

Set  Color  To  UJ  +  /B ,  U+/B 
Xlabopt  -  32 
Do  Headings 
Da  Startup 

0  22,66  Get  Xlabopt  Piet  ”99”  Range  0,33 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xlabopt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xlabopt  ”  1 

Morder  “  ’’Bilirubin” 

Do  B.-Time 
Do  Labcount 
Do  Replaord 


Case  Xlabopt  -  2 
Harder  *  "BUN” 

□a  B:Time 
□a  Labcaunt 
Do  Raplaord 
Loop 

Cose  Xlabopt  -  3 
Harder  -  "Calcium” 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  “  4 
Harder  -  "Cloride” 

Do  B:Time 
Do  Labcount 
Da  Replaord 
Loop 

Case  Xlabopt  -  5 
Harder  -  "CD2” 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  6 

Harder  -  "Creatinine 
Do  B:Time 
Da  Labcaunt 
Do  Replaord 
Loop 

Case  Xlabopt  -  7 
Harder  -  "Glucose" 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  “  8 

HordBr  -  "Phosphate” 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 


Case  Xlabopt  “  9 

Harder  m  ’’Potassium 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  10 
Harder  -  ’’Sodium” 

Do  B:TimB 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  =  11 
Harder  -  ’’Uric  Acid 
Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  12 
Harder  •  ’’Amylase" 
Do  B:Time 
Do  Labcount 
Da  Replaord 
.oop 

Ca3e  Xlabopt  -  13 
Harder  -  "CPK” 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  14 
Harder  -  ”LDH” 

Do  B:Time 
Do  Labcount 
Da  Replaord 
Loop 

Case  Xlabopt  -  15 
Harder  -  ”SG0T” 

Do  B:Time 
Do  Labcount 
Do  Replaord 


Cose  Xlabopt  -  16 
norder  -  "SGPT” 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  17 
Morder  “  "CBC" 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  IB 
Morder  ■  "Platlets” 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  19 
Morder  -  "Protime" 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  20 

Morder  -  ”Sed  Rate” 

Do  B:Time 
Da  Labcount 
Da  Replaord 
Loop 

Case  Xlabopt  -  21 
Morder  -  "ABO  &  Rh” 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  22 

Morder  -  ”ABG  CFrom  A-line] 
Do  B:Time 
Do  Labcount 
Do  Replaord 


Case  Xlabopt  -  23 

(lorder  “  "ABG  C stick]’’ 

Do  B:Time 

□a  Case 

Case  CXtimeopt  <  25  .Dr.  Xtimeopt  ■  413 

*  —  Less  than  x  3  or  TID 
Passdata  -  ”045  1” 

Ptpoint  -  0 

Case  CXtimeopt  >  24  .And.  Xtimeopt  <  34] 

*  X  3  CTID3  or  less  than  Q4h  Cx  53 
Passdata  -  "045  2” 

Ptpoint  -  2 

Case  CXtimeopt  *  34  .Or.  Xtimeopt  -  353 

*  —  Q4h  or  x  6 
Passdata  -  "045  3" 

Ptpoint  -  4 

Case  CXtimeopt  *  35  .Or.  Xtimeopt  -  373 

*  —  02h  or  x  12 
Passdata  -  "045  4" 

Ptpoint  -  0 

Case  CXtimeopt  -  3B  .Or.  Xtimeopt  -  303 

*  —  Qlh  ar  x  24 
Passdata  -  ”045  5” 

Ptpoint  -  16 

Endcase 

Do  Replaord 
Loop 

Case  Xlabopt  -  24 

harder  -  "Bid  Cultures” 

Do  B:Time 

Do  Case 

Case  CXtimeopt  <  25  .Or.  Xtimeopt  -  413 

*  —  Less  than  x  3  or  TID 
Passdata  -  ”046  1” 

Ptpoint  -  0 

Case  CXtimeopt  >  24  .And.  Xtimeopt  <  343 

*  —  X  3  CTID3  or  less  than  04h  Cx  53 
Passdata  -  ”046  2” 

Ptpoint  -  2 

Case  CXtimeopt  “  34  .Or.  Xtimeopt  -  353 

*  --  Q4h  or  x  6 
Passdata  -  ”046  3” 

Ptpoint  -  4 

Case  CXtimeopt  -  36  .Or.  Xtimeopt  - 

*  --  Q2h  or  x  12 
Passdata  -  ”046  4” 


373 


Ptpaint  -  0 

Case  CXtimeopt  -  38  .Or.  Xtimeapt  -  391 
*  —  Qlh  or  x  24 
Passdata  -  ”Q46  5” 

Ptpoint  -  16 
Endcase 

Do  Replaord 
Loop 

Case  Xlabopt  -  25 

Morder  *  "Culture  &  Sen” 

Do  B:Time 
Da  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  ■  26 

Harder  -  "Cold  Agglutins” 

Do  B:Time 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  27 
Morder  -  ”HCG” 

Da  B:Time 
Do  Labcount 
Da  Replaord 
Loop 

Case  Xlabopt  -  28 

Harder  ■  ”Qcc  Bid  in  Stools" 

Do  8: Time 
Do  Labcount 
Da  Replaord 
Loop 

Case  Xlabopt  -  28 
Harder  -  "RPR” 

Da  BrTime 
Do  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  30 
Morder  -  "SMA  6" 

Do  B:Time 
Do  Labcount 
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Do  Replaord 
Loop 

Case  Xlabopt  ■  31 
flordsr  -  ”UA” 

Da  B:Time 
Da  Labcount 
Do  Replaord 
Loop 

Case  Xlabopt  -  32 

*  —  Doctor’s  Order  Screen 
Dmenu  ~  ’  1  ’ 

Return 

Case  Xactopt  ■  33 

*  —  naster  Screen 

Dmenu  ■  ’  ’ 

Return 

Endcase 

Release  Xlabopt 


Enddo 


****  LUNG.PRG 

*  Author:  Gary  R.  Harmeyer  LCOR  NC  USN 

*  Date:  S3  November  1385 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clS85 

*  Purpose:  Menu  providing  respiratory  therapy 

*  options. 

*  Input  Files  Used:  Lung.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc_f1enu  . Prg 

*  Routine  Called:  Time. Prg 

*  Modification  Date:  38  January  1386 

* 

*  —  Screen  Input  Program  For  Lung  — 

• 

□a  Setup 

Public  Xlungopt , Xliteropt, Xliter 
Do  While  .T. 

*  —  Screen  Display  A: Lung.Scr  — 

Set  Color  Ta  UI+/B,UJ+/B 
Clear 

??  Flash* ”S. A: Lung.Scr/” 

Set  Color  To  W+/B , U+/B 
Xlungopt  -  14 
Da  Headings 
Da  Startup 

0  31,66  Get  Xlungopt  Piet  ”33”  Range  0,15 
Read 


*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 

Case  Xlungopt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xlungopt  ■  1 

harder  -  "Chest  Pulmonary  Therapy" 

Do  B:Time 


*  —  Lass  than  BID  or  x  2 
Passdata  -  ”068  1“ 

Ptpoint  “  0 

Case  CTimeopt  >  21  .And.  Timeopt  <  25] 

*  —  BID  or  x  2 
Passdata  -  ”Q6B  2” 

Ptpoint  -  2 

Casa  CTimeopt  >  24  .And.  Timeapt  <  31] 

*  —  TID  or  x  3 
Passdata  ■  ”Q6B  3” 

Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  34] 

*  —  QID  or  x  4 
Passdata  -  ”Q6B  4” 

Ptpoint  -  4 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35D 

*  —  Q4h  or  x  6 
Passdata  -  ”068  5” 

Ptpoint  -  6 

Case  CTimeopt  -  36  .Or.  Timeopt  -  37] 

*  —  Q2h  or  x  12 
Passdata  -  ”068  6" 

Ptpoint  -  12 

Case  CTimeopt  -  38  .Or.  Timeopt  -  33] 

*  —  Qlh  or  x  24 
Passdata  -  ”068  7" 

Ptpoint  -  24 

Endcase 

Do  Replaard 
Loop 

Case  Xlungapt  -  2 

Harder  ”  "Cough  &  Deep  Breath” 

Do  B:Time 
Da  Cough 
Do  Replaord 
Loop 

Case  Xlungapt  -  3 

Harder  -  "Incentive  Spirometer” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  31  .Or.  Timeopt  -  41] 
m  --  Less  than  Q4h  or  x  6 
Passdata  -  ”064  1” 

Ptpoint  “  0 

Case  CTimeopt  -  34  .Or.  Timeopt  *  35] 

*  --  04h  or  x  6 


Passdata  -  ”064  2” 

Ptpoint  “  2 

Case  CTimeopt  ■  3B  .Or.  Timeopt  •  373 

*  —  Q2h  or  x  12 
Passdata  -  ”Q64  3” 

Ptpoint  -  4 

Case  CTimeopt  -  30  .Or.  Timeopt  *■  393 

*  --  Qlh  or  x  24 
Passdata  -  ”Q64  4” 

Ptpoint  -  0 

Endcase 

□o  Replaord 
Loop 

Case  Xlungopt  -  4 
norder  -  * IPPB” 

Do  B:Time 

□a  Case 

Case  CTimeopt  <  22  .Or.  Timeopt  -  413 

*  —  Less  than  BID  or  x  2 
Passdata  -  ”Q66  1” 

Ptpoint  -  0 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  —  BID  or  x  2 
Passdata  *  ”066  2” 

Ptpoint  -  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  —  TID  or  x  3 
Passdata  -  "Q66  3” 

Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  QID  or  x  4 
Passdata  -  ”Q66  4” 

Ptpoint  "  4 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  —  Q4h  or  x  B 
Passdata  -  ”Q66  5” 

Ptpoint  “  B 

Case  CTimeopt  -  36  .Or.  Timeopt  -  373 

*  —  Q2h  or  x  12 
Passdata  -  ”066  6” 

Ptpoint  -  12 

Case  CTimeopt  **30  .Or.  Timeopt  -  303 

*  —  Qlh  or  x  24 
Passdata  -  ”066  7” 

Ptpoint  -  24 

Endcase 


Do  Raploord 
Loop 

Case  Xlungopt  “  5 

Morder  ■  "Suctioning” 

Do  B-.Time 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeapt  -  413 

*  —  Lbss  than  Q4h  or  x  6 
Passdata  -  ”Q6S  1” 

Ptpoint  -  0 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  —  Q4h  or  x  S 
Passdata  -  ”Q69  2" 

Ptpoint  “  2 

Case  CTimeopt  ■  36  .Or.  Timeopt  -  373 

*  —  Q2h  or  x  12 
Passdata  •  "Q60  3” 

Ptpoint  “  4 

Case  CTimeopt  **  39  .Or.  Timeopt  ■  393 

*  —  Qlh  or  x  24 
Passdata  -  ”Q6B  4" 

Ptpoint  “  8 

Endcase 

Do  Replaard 
Loop 

Case  Xlungopt  ■  6 

Harder  ■  "Trach  Care” 

Da  B:Time 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  -  413 

*  —  Less  than  TID  or  x  3 
Passdata  -  ”Q70  1” 

Ptpoint  “  0 

Case  CTimeopt  >  24  .find.  Timeopt  <  343 

*  —  TID  Cx  33  or  less  than  Q4h  Cx  63 
Passdata  -  ”070  2” 

Ptpoint  -  4 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  —  Q4h  or  x  6 
Passdata  -  ”070  3” 

Ptpoint  “  8 

Case  CTimeopt  -  36  .Or.  Timeopt  -  373 

*  —  Q2h  or  x  12 
Passdata  -  ”070  4” 

Ptpoint  ■  16 


Case  CTimeopt  -  38  .Or.  Timeopt 
*  —  Qlh  or  x  24 
Passdata  -  ”070  5” 

Ptpoint  -  32 
Endcase 

Oo  Raplaord 
Loop 

Cose  Xlungopt  -  7 

florder  -  ’’Uentilator ” 

Passdata  -  ”071  1” 

Ptpoint  -  10 
Do  Replaord 
Loop 

Case  Xlungopt  -  8 

Harder  ■  "Wean  from  Uentilator" 

Do  B:Time 
Do  Replaord 
Loop 

Case  Xlungopt  *  8 
Da  Liter 

Harder  •  "Croup  Tent  ”  -*■  Xliter 
Do  B:Time 
Passdata  -  ”067  1” 

Ptpoint  “  8 
Do  Replaord 
Loop 

Case  Xlungopt  -  10 
Do  Liter 

Harder  -  ”Hask  ”  +  Xliter 
Do  B:Time 

Passdata  ■  ”QB3  1” 

Ptpoint  -  2 
Do  Replaord 
Loop 

Case  Xlungopt  -  11 
Do  Liter 

Harder  -  "Hist  Tent  ”  +  Xliter 
Oo  B:Time 

Passdata  -  ”067  2” 

Ptpoint  -  8 
Da  Replaord 


Cdso  Xlungopt  “  15 
Do  Liter 

dorder  •  ’’Nasal  Prongs  "  ♦  XI iter 
□a  B:Time 
Passdoto  -  "Q63  1 " 

Ptpaint  •  5 
□a  Replaord 
Loop 

Case  Xlungopt  -  13 
Do  Liter 

dorder  -  "Qxyhood  "  ♦  XI iter 
□a  B:Time 

Possdata  -  ”Q63  3” 

Ptpaint  -  5 
Do  Replaord 
Loop 

Case  Xlungopt  •  14 

•  —  Doctor’s  Order  Screen 
Dmenu  “  ’  1  ’ 

Return 

Case  Xlungopt  -  15 

*  —  daster  Screen 
Dmcriu  “  ’  ' 

Return 

Endcase 

Release  Xlungopt, Xliterapt , Xliter 
Endda 


223 


***  MONITOR.PRG  •***•***•*•****•*********•***•****•***•* 

Author  Gory  R.  Harmeyer  LCDR  NC  USN 

Dote  8  December  1985 

Screen  Generated  By:  The  Software  Bottling  Company 

Of  New  York,  cl9B5 

Purpose:  Determine  monitoring  orders  of  the 

patient . 

Input  Files  Used:  Monitor. Scr  and  Procfile.Prg 

Output  Files  Used:  Orders. Dbf 

Calling  Routine:  Doc^Menu.Prg 

Routine  Called:  Time.Prg 

Modification  Date:  4  February  1986 

--  Screen  Input  Program  For  Monitor  — 

Do  Setup 

Public  Xmonopt 

Do  While  . T . 

*  --  Screen  Display  A : Monitor . Scr  — 

Set  Color  Ta  UJ+/B ,  U1+/B 
Clear 

??  Flash-*-”S  .A:  Monitor  .Scr/” 

Set  Color  To  UI+/B ,  Ld-*-/B 
Xmonopt  -  19 
Do  Headings 
Da  Startup 

0  22,66  Get  Xmonopt  Piet  ”99”  Range  0,20 
Read 

*  —  Evaluate  action  based  an  the  option  selected  -- 
Do  Case 

Case  Xmonopt  *  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xmonopt  -  1 

Morder  "  "Apnea  Monitor” 

Pa33data  -  ”QB3  1” 

Manpoint  -  6 
Do  Replaord 


Case  Xmonopt  -  2 

florder  -  ’’A-line  Set-up” 

Passdata  -  ”016  1” 

Ptpoint  -  4 
Todayanly  -  ”T" 

Do  Replaord 
Loop 

Case  Xmonopt  -  3 

florder  ■  ”A-line  Readings” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or,  Timeopt  -  413 

*  —  Less  than  Q2h  or  x  IS 
Passdata  -  "Q19  1” 

Ptpoint  -  0 

Case  CTimeopt  “  36  .Or.  Timeopt  -  373 
»  —  Q2h  or  x  12 
Passdata  -  ’’Q19  2” 

Ptpoint  "  2 

Case  CTimeopt  “  36  .Or.  Timeopt  “  393 

*  —  Qlh  or  x  24 
Passdata  -  ”019  3” 

Ptpoint  -  4 

Endcase 

Da  Replaord 
Loop 

Case  Xmonopt  -  4 

harder  “  "Cardiac  Monitor” 

Passdata  -  ”082  1" 
honpoint  -  6 
Da  Replaord 
Loop 

Case  Xmonopt  -  5 

harder  ■  "Cardiac  Output” 

□a  BrTime 

Do  Case 

Case  CTimeopt  <  26  .Or.  Timeopt  -  413 

*  --  Less  than  TID  or  x  3 
Passdata  -  ”022  1” 

Ptpoint  "  0 

Case  CTimeopt  >  24  .And.  Timeopt  <  343 

*  —  TID  Cx  33  and  less  than  Q4h  Cx  63 
Passdata  -  ”022  2" 


Ptpoint  “  2 

Case  CTimeapt  -  34  .Or.  Timeopt 

*  —  Q4h  or  x  6 
Possdata  -  "Q22  3” 

Ptpoint  “  4 

Cose  [Timeopt  -  36  .Or.  Timeopt 

*  --  Q2h  or  x  12 
Passdata  -  "Q22  4” 

Ptpoint  -  9 

Case  CTimeopt  -  38  .Dr.  Timeopt 

*  --  Qlh  or  x  24 
Passdata  -  ”Q22  5” 

Ptpoint  “  16 

Endcase 

Do  Replaord 
Loop 

Case  Xmanopt  -  6 

Morder  -  "Circulation  Checks” 

Do  B:Time 

Da  Case 

Case  CTimeapt  <  36  .Or.  Timeopt 

*  —  Less  than  Q2h  or  x  12 
Passdata  -  ”Q10  1“ 

Ptpoint  “  0 

Case  CTimeopt  -  36  .Or.  Timeopt 

*  —  Q2h  or  x  12 
Passdata  -  ”Q10  2" 

Ptpoint  -  2 

Case  CTimeopt  -  38  .Or.  Timeopt 

*  --  Qlh  or  x  24 
Passdata  -  ”Q10  3" 

Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  "  7 

border  -  ”CUP  Readings  CHanuallyD 
Da  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt 

*  —  Less  than  Q2h  or  x  12 
Passdata  -  "Q12  1” 

Ptpoint  "  0 

Case  CTimeopt  -  36  .Or.  Timeopt 


*  —  Q2h  or  x  12 
Passdata  -  ”Q12  2" 

Ptpoint  “  2 

Case  CTimeopt  -  38  .Or.  Timeopt  ” 

*  —  Qlh  or  x  24 
Passdata  -  *'Q12  3” 

Ptpoint  ■  4 

Endcase 

Do  Replaard 
Loop 

Case  Xmonopt  -  0 

Morder  -  "Fundus  Checks’’ 

Do  B:Time 

Da  Case 

Case  CTimeopt  <  36  .Or.  Timeopt  * 

*  —  Less  than  Q2h  or  x  12 
Passdata  -  "014  1" 

Ptpoint  -  0 

Case  CTimeopt  -  36  .Or.  Timeopt  - 

*  —  02h  ar  x  12 
Passdata  -  ”014  2” 

Ptpoint  -  2 

Case  CTimeopt  -  38  .Or.  Timeopt  “ 

*  —  Qlh  or  x  24 
Passdata  -  ”Q14  3” 

Ptpoint  -  4 

Endcase 

Do  Replaard 
Loop 

Case  Xmonopt  -  9 

Morder  ”  "Intake  &  Output" 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  “ 

*  —  Less  than  QBh  or  x  3 
Passdata  -  ”Q9  1” 

Ptpoint  -  0 

Case  CTimeopt  >  24  .And.  Timeopt  < 

*  —  QBh  Cx  33  and  less  than  Q4h 
Passdata  -  ”Q9  2” 

Ptpoint  -  2 

Case  CTimeopt  “  34  .Or.  Timeopt  ” 

*  --  Q4h  or  x  6 
Passdata  -  ”Q9  3” 


39  3 


413 

37  3 

393 


413 

34  3 
Cx  63 

35  3 


Ptpoint  -  4 

Case  CTimeopt  -  36  .Or.  Timeopt 

*  —  Q2h  or  x  12 
Passdata  -  ”Q9  4” 

Ptpoint  -  8 

Case  CTimeopt  -  38  .Or.  Timeopt 

*  --  Qlh  or  x  54 
Passdata  -  ”Q9  5” 

Ptpoint  -  16 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  =  10 

Marder  “  ”ICP  CManitarl  Set-Up” 
Passdata  “  ”Q2  9” 

Ptpoint  -  4 
Todayonly  -  "T” 

Da  Replaord 
Loop 

Case  Xmonopt  "  11 

Harder  ■  "Manual  ICP  Readings” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt 

*  —  Less  than  QSh  or  x  12 
Passdata  ■  ”013  1” 

Ptpoint  -  0 

Case  CTimeopt  -  36  .Or.  Timeopt 

*  --  Q2h  or  x  12 
Passdata  -  ”013  2” 

Ptpoint  “  2 

Case  CTimeopt  -  38  .Or.  Timeopt 

*  —  Qlh  or  x  24 
Passdata  -  ”Q13  3” 

Ptpoint  “  4 

Endcase 

Da  Replaord 
Loop 

Case  Xmonopt  -  12 

border  “  ’’Monitor  ICP  Readings” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  36  .Or.  Timeopt 


*  —  Less  than  Q2h  or  x  12 
Passdata  *  "Q20  1” 

Ptpoint  -  0 

Case  CTimeopt  ■  36  .Or.  Timeopt 

*  —  Q2h  or  x  12 
Passdata  “  ’‘Q20  2” 

Ptpoint  “  2 

Case  CTimeopt  -  36  .Or.  Timeopt 

*  —  Qlh  or  x  24 
Passdata  -  ”Q20  3” 

Ptpoint  “  4 

Endcase 

Da  Replaord 
Loop 

Case  Xmanopt  “  13 

harder  "  ’’Neuro  Checks” 

Da  B:Time 

Da  Case 

Case  CTimeopt  <  34  .Or.  Timeopt 

*  —  Less  than  Q4h  or  x  6 
Passdata  -  ”011  1” 

Ptpoint  -  0 

Case  CTimeopt  ”  34  .Or.  Timeopt 

*  —  G4h  or  x  6 
Passdata  -  "Oil  2” 

Ptpoint  -  3 

Case  CTimeopt  "36  .Or.  Timeopt 

*  —  Q2h  or  x  12 
Passdata  -  ”Q11  3” 

Ptpoint  -  6 

Case  CTimeopt  "  38  .Or.  Timeopt 

*  —  Olh  or  x  24 
Passdata  -  "Oil  4” 

Ptpoint  "  12 

Endcase 

Do  Replaord 
Loop 

Case  Xmonopt  -  14 

flordBr  ■  ’’Pressure  Honitor” 
Passdata  -  ”Q85  1” 
honpoint  ■  6 
Do  Replaord 


Case  Xmanopt  -  15 

Horder  -  ’’PAP/PA  Wedge  [Readings] 
Do  B:Time 

Do  Case 

Case  CTimeopt  <  34  .Dr.  Timeopt 

*  —  Less  than  Q4h  or  x  6 
Passdata  -  ”021  1” 

Ptpoint  “  0 

Case  CTimeopt  -  34  .Dr.  Timeopt 

*  --  Q4h  or  x  5 
Passdata  -  ”021  2” 

Ptpoint  -  2 

Case  CTimeopt  -  36  .Or.  Timeopt 

*  —  Q2h  or  x  12 
Passdata  -  ”021  3” 

Ptpoint  -  4 

Case  CTimeopt  -  38  .Or.  Timeopt 

*  --  Qlh  or  x  24 
Passdata  -  ”021  4” 

Ptpoint  -  8 

Endcase 

Do  Replaard 
Loop 

Case  Xmonopt  -  16 

Harder  ■  "Swan-Ganz  Set-up” 
Passdata  -  ”018  1” 

Ptpoint  -  4 
Todayonly  -  ”T” 

Do  Replaord 
Loop 

Case  Xmonopt  -  17 

Harder  "  "Temperature  Honitar” 
Passdata  -  ”084  1” 

Honpomt  -  6 
Da  Replaord 
Loop 

Case  Xmonopt  -  IB 

Horder  -  "Transcutaneous  Honitor” 
Passdata  -  ”015  1” 

Ptpoint  ”  6 
Da  Replaord 
Loop 

Case  Xmonopt  -  18 

*  —  Doctor’s  Order  Screen 


»»«»  PHAfll  .  PRG  ******* 

*  Author: 

*  Date: 

*  Screen  Generated  By : 

* 

*  Purpose: 


*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


Gary  R .  Harmeyer  LCDR  NC  USN 
29  November  1385 
The  Software  Bottling  Company 
Of  New  York,  clS85 
One  of  two  program  modules  used  to 
determine  phamacy  orders  of  the 
patient . 

Monitor. Scr  and  ProcfilB.Prg 
Orders . Dbf 
Doc_Menu . Prg 

Time,  Pham2  and  Phamhelp.Prg 
4  February  1S8B 


*  —  Screen  Input  Program  For  Phaml  — 

* 


Do  Setup 

Public  Xphamlopt 
Do  While  .T. 

*  —  Screen  Display  A: Phaml. Scr  — 

Set  Color  Ta  W+/B,U+/B 
Clear 

??  Flash+”S.A:Phaml .Scr/” 

Set  Color  To  U+/B,W+/B 
Xphamlopt  -  2G 
Da  Headings 
Do  Startup 

0  22,66  Get  Xphamlopt  Piet  ”33”  Range  1,27 
Read 

*  —  Evaluate  action  based  on  the  option  selected  -- 
Do  Case 

Case  Xphamlopt  ■  1 

Morder  -  ’’Benadryl  25mg  COD” 

Do  8:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  2 

Morder  *  ’’Benadryl  50mg  CIMD" 

Do  B:Time 
Do  Regmeds 


Do  Replaord 
Loop 

Case  Xphamlopt  -  3 

Harder  -  ’’Benadryl  50mg  CIU3” 

Oa  B:Time 
Do  IUmeds 
Da  Replaord 
Loop 

Case  Xphamlopt  -  4 

Harder  -  ’’Dimetapp  4mg  COD” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  *  5 

Harder  “  "Dimetapp  Elix  5mg  COD 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  6 

Harder  -  ’’Phenergan  25mg  COD” 

Da  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  7 

Harder  "  "Phenergan  B5mg  CIHD” 

Da  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  B 

Harder  ”  "Phenergan  25mg  CSPD” 

Do  B-.Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  9 

Harder  ■  "Amplcillin  250mg  COD” 
Do  B:Time 
Do  Regmeds 


Do  Replaord 
Loop 

Case  Xphamlopt  -  10 

tlordor  -  ’’Ampicillin  5Q0mg  ClhD 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  11 

Morder  •  ’’Ampicillin  500mg  CIUD 

Do  B:Time 

Do  IUmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  12 

harder  ■  ’’Ancef  .5Gm  ClhD” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  13 

harder  -  "Ancef  .5Gm  CIUD” 

Do  B:Time 
Da  IUmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  14 

harder  -  ’’Cefadyl  500mg  ClhD” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  15 

harder  -  ’’Cefadyl  l.OGm  ClhD” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  16 

harder  -  ’’Cefadyl  l.OGm  CIUD” 

Do  B:Time 
Do  IUmeds 


Do  Replaord 
Loop 

Case  Xphamlopt  ■  17 

Horder  -  ’’Erythromycin  E50mg  COD” 

Do  B:Time 
□o  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  IB 

Harder  ■  "Erythromycin  Susp  200mg  C03” 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  IB 

Harder  -  "Keflex  250mg  CD 3” 

Da  B:Time 
□o  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  20 

Harder  -  "Keflex  Susp  125mg  C03” 

Da  B:Time 
Da  Regmeds 
Da  Replaord 
Loop 

Case  Xphamlopt  “  21 

Harder  -  "Sulfacetamine  10^  Salt  COpD” 

Do  B:Time 

Da  Regmeds 

Do  Replaord 

Loop 

Case  Xphamlopt  -  22 

Horder  -  "Tetracycline  250mg  COD" 

Do  B:Time 
Da  Regmeds 
Do  Replaord 
Loop 

Case  Xphamlopt  -  23 

Horder  ■  "Tetracycline  500mg  CIU3” 

Do  B:Time 
Do  IUmeds 
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Do  Replaord 
Loop 

Case  Xphamlopt  -  24 

*  —  Help 

Dd  B:Phamhelp 
Loop 

Cass  Xphamlopt  -  25 

*  --  Next  Screen  Chore  fledsD 
Do  B : Pham2 

Loop 

Case  Xphamlopt  -  26 

*  —  Dr’s  Order  Screen 
Dmenu  -  ’ 1  ' 

Return 

Case  Xphamlopt  “  27 

*  —  Master  Screen 
Dmenu  *  '  ’ 

Return 

Endcase 

Release  Xphamlopt 


Enddo 


****  PHAM2.PRG  *••<•*••****<•*•*****•••*****«***•********•• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  29  Nov  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  One  of  two  program  modules  to 

*  determine  pharmacy  orders  of  the 

*  patient. 

*  Input  Files  Used:  Pham2.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dhf 

*  Calling  Routine:  Phaml.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  1986 

* 

*  --  Screen  Input  Program  For  Pham2  -- 

* 

Do  Setup 

Public  Xpham2opt 
Do  While  .T. 

*  —  Screen  Display  A:Pham2.Scr  — 

Set  Color  To  W+/B,W+/B 
Clear 

??  F lash+”S . A : Pham2 . Scr/ ” 

Set  Color  To  W+/B , W+/B 
Xpham2opt  *  24 
Do  Headings 
Da  Startup 

0  22,66  Get  Xpham2opt  Piet  ’’99”  Range  1,24 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Da  Case 

Case  Xpham2opt  ”  1 

Morder  “  "Boric  Acid  Salt  C 1 3 ” 

Do  B:Time 

Do  Case 

*  —  Expert  system  data 
Case  CTimeopt  <  6  .Or.  TimBopt  -  413 
Passdata  -  ”048  5” 

Ptpoint  ■  0 

Case  CTimeopt  >  5  .And.  Timeopt  <  343 
Passdata  -  ”048  1" 

Ptpoint  -  2 


Case  CTimeopt  -  34  .Or.  Timeopt 
Passdata  -  ”040  2" 

Ptpaint  -  3 

Casa  CTimeopt  -  36  .Or.  Timeopt 
Passdata  -  ”040  3” 

Ptpoint  “  6 

Case  CTimBopt  -  30  .Or.  Timeopt 
Passdata  -  "Q40  4” 

Ptpoint  “  12 
Endcase 

Do  Replaord 
Loop 

Case  Xpham2opt  “  2 

Harder  -  ’’Atropine  0.4mg  CQ]” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2opt  “  3 

Harder  -  ’’Atropine  0.4mg  CIH]” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2apt  -  4 

Harder  -  ’’Valium  5mg  CO]” 

Da  B:Time 
Do  Regmeds 
Da  Replaord 
Loop 

Case  Xpham2opt  “  5 

Horder  -  ’’Valium  5mg  CIH]” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2apt  “  6 

Horder  -  ’’Valium  Smg  CIV]” 

Da  B:Time 
Do  IOmeds 
Do  Replaord 


v  i  IT*  V^ITUT 


v  rr  ^  7 


Casa  Xpham2opt  -  7 

flordar  -  "Digaxin  . 125mg  CD 3" 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  -  0 

flordar  -  "Digoxin  .250mg  C03’* 

Do  B : I i me 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  ”  9 

florder  -  ”  Inderal  lOmg  C03” 

Do  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2apt  ■  10 

Marder  -  ” Inderal  40mg  C03” 

Da  B:Time 
Da  Regmeds 
Da  Replaord 
Loop 

Case  Xpham2apt  "  11 

florder  -  "Inderal  lmg  CIU3” 

Do  B:Time 
Do  IUmeds 
Do  Replaord 
Loop 

Case  XphamBopt  -  12 

florder  -  "Minipres  lmg  C03” 

Do  D:Time 
Do  Regmeds 
Da  Replaord 
Loop 

Case  Xpham2opt  -  13 

florder  -  "Minipres  2mg  C0  3  ’’ 

Do  B:Time 
Do  Regmeds 
Do  Replaord 


Case  Xpham2opt  -  14 

Harder  -  "Hinipres  5mg  COD” 

Do  B:Time 
□a  Regmeds 
□a  Replaord 
Loop 

Case  Xpham2opt  “  15 

Harder  -  "Dilantin  lOOmg  COD” 

Da  B:Tims 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2opt  -  16 

Harder  -  "Dilantin  Supn  125mg  CD] 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2apt  -  17 

Horder  -  "Elavil  lOmg  CQ]” 

Do  BrTime 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2apt  -  18 

Harder  -  "Elavil  25mg  COD” 

Da  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2apt  -  13 

Harder  -  "Elavil  50mg  COD” 

Da  B:Time 
Do  Regmeds 
Do  Replaord 
Loop 

Case  Xpham2opt  -  20 

Horder  -  "Phenobarbital  15mg  COD” 
Do  B:Time 
Do  Regmeds 
Do  Replaord 


Case  Xpham2opt  -  21 

Marder  -  ’’Phenabarbital  30mg  COD" 

Do  B.-Time 

□o  Regmeds 

Do  Replaord 

Loop 

Case  XphamHopt  -  22 

Marder  -  "Phenobarbi tal  BOmg  CIMD 

Do  B:Time 

Do  Regmeds 

Do  Replaord 

Loop 

Case  Xpham2opt  -  23 

*  --  Help 

Da  B-.Phamhelp 
Loop 

Case  Xpham2apt  -  24 

*  —  Previous  Screen 
Return 

Endcase 

Release  Xpham2opt 


Enddo 


**»*  PHAMHELP . PRG  •••* 

*  Author: 

*  Data: 

*  Screen  Generated  By : 

* 

*  Purpose: 

* 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


Gary  R.  Harmeyer  LCDR  NC  USN 

25  November  1905 

The  Software  Bottling  Company 
Of  New  York,  C19B5 
Brief  on-line  help  facility  for 
Phaml  and  Phamg.Prg. 
Phamhelp.Scr  and  Procfile.Prg 
None 

Phaml  or  Pham2.Prg 
None 

26  January  1906 


the 


*  --  Screen  Input  Program  Far  Phamhelp  -- 


Do  Setup 


Do  While  .T. 


*  —  Screen  Display  A : Phamhelp . Scr  — 

Set  Color  To  W+/B.W+/B 
Clear 

??  Flash+”S . A : Phamhelp . Scr/ ” 

@24,0 

0  24,37  Say  "Press  Any  Key  To  Continue” 

Set  Console  Off 

Wait 

Set  Console  On 
Return 


Enddo 


****  ROUTINE. PRG  •  •••••••*•••••**•»*••*•»*•••••**••*•<*•• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  29  November  1995 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Determine  the  ward  routine  orders 

*  of  the  patient. 

*  Input  Files  Used:  Routine. Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders . Dbf 

*  Calling  Routine:  Doc_(1enu  .  Prg 

*  Routine  Called:  Time. Prg 

*  fladif ication  Date:  19  February  1986 

* 

*  —  Screen  Input  Program  For  Routine  -- 

* 

Do  Setup 
Public  Xrouapt 

Da  While  .T. 

*  —  Screen  Display  A : Routine . Scr  -- 

Set  Color  To  UJ+/B ,  W+/B 
Clear 

??  Flash-*- ”S  .  A :  Rout ine  . Scr/ ” 

Set  Color  To  W+/B,W+/B 
Xrauopt  -  30 
Do  Headings 
Da  Startup 

0  22,66  Get  Xrouopt  Piet  ”98”  Range  0,31 
Read 

*  —  Evaluate  action  based  on  the  option  selected  -- 
Da  Case 

Case  Xrauopt  “  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xrauopt  -  1 

Morder  -  "Ace  Wrap  Lower  Ext” 

Passdata  -  "Q36  1” 

Ptpoint  "  2 
Da  Replaord 


Case  Xrouopt  -  2 

Morder  “  ’’Chest  TubB  Insertion" 

Passdata  -  ”Q57  1” 

Ptpoint  “  4 
Todayonly  ”  ”T” 

Do  Replaord 
Loop 

Case  Xrouopt  -  3 

Morder  -  "Circumcision  Care" 

Do  B:Time 
Passdata  “  ”Q52  1” 

Ptpoint  “  2 
Do  Replaord 
Loop 

Case  Xrouopt  -  4 

Morder  ■  "Complex  Dressing  Change" 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  6  .Or.  Timeopt  ”  413 

*  —  Less  than  one  dressing 
Passdata  -  ”037  1” 

Ptpoint  -  0 

Case  CTimeopt  >  5  .Pnd.  Timeopt  <  223 

*  —  One  dressing  change 
Passdata  -  ”037  B" 

Ptpoint  -  4 

Case  CTimeopt  >  21  . Pnd .  Timeopt  <  253 

*  —  Two  dressing  changes 
Passdata  -  ”037  3" 

Ptpoint  -  0 

Case  CTimeopt  >  24  .Pnd.  Timeopt  <  313 

*  --  Three  dressing  changes 
Passdata  -  "037  10” 

Ptpoint  -  12 

Case  CTimeopt  >  30  .Pnd.  Timeopt  <  343 

*  —  Four  dressing  changes 
Passdata  -  ”037  11” 

Ptpoint  -  IB 

Case  CTimeopt  -  34  .Or.  Timeopt  -  353 

*  --  Six  dressing  changes 
Passdata  -  ”037  12” 

Ptpoint  -  24 

Case  CTimeopt  “36  .Or.  Timeopt  -  373 

*  --  Twelve  dressing  changes 
Passdata  -  ”037  13” 

Ptpoint  “  48 


Case  CTimeopt  -  38  .Or.  Timeapt  -  393 

*  —  Tuenty-f our  dressing  changes 
Passdata  -  ”Q37  14” 

Ptpoint  “  SB 
Endcase 

Do  Replaord 
Loop 

Case  Xrouopt  •  5 

Harder  "  ”EKG  Rhythm  Strip” 

Passdata  -  ”Q33  1" 

Ptpoint  -  E 
Todayanly  •  ”T” 

Do  Replaord 
Loop 

Case  Xrouopt  -  6 

Florder  -  "Foley  Cath  Care” 

Do  B:Time 

Da  Case 

Case  CTimeopt  <  EE  .Or.  Timeopt  -413 

*  —  Tube  care  less  than  x  S 
Passdata  -  ”Q39  1” 

Ptpoint  -  0 

Case  CTimeopt  >  El  .And.  Timeopt  <  S53 

*  —  Tube  care  x  E 
Passdata  -  ”Q39  S" 

Ptpoint  “  E 

Case  CTimeopt  >  E4  .And.  Timeapt  <  313 

*  —  Tube  care  x  3 
Passdata  -  ”Q39  3” 

Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  Tube  care  x  4 
Passdata  -  ”Q39  4” 

Ptpoint  ”  4 

Case  CTimeopt  “  34  .Or.  Timeopt  *  353 
»  —  Tube  care  x  6 
Passdata  -  ”Q3S  5” 

Ptpoint  -  6 

Case  CTimeopt  *  36  .Or.  Timeopt  -  373 

*  --  Tube  care  x  IE 
Passdata  -  ”Q3S  6” 

Ptpoint  -  IE 

Case  CTimeopt  -  30  .Or.  Timeopt  *=  393 

*  --  Tube  care  x  E4 
Passdata  -  ”Q39  7” 
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Ptpoint  -  24 
EndcQse 

Do  Replaord 
Loop 

Case  Xrouapt  -  7 

norder  -  "Foley  Cath  Insertion” 
Passdata  -  "Q32  1” 

Ptpoint  -  2 
Todayonly  -  ”T” 

Do  Replaord 
Loop 

Cose  Xrouopt  -  8 

Harder  ■  "Guiac  Stools” 

Do  B:Time 
Do  Routine 
Do  Replaord 
Loop 

Case  Xrouopt  •  9 

Harder  “  "Respiratory  Isolation 
Passdata  -  ”054  2” 

Ptpoint  -  2 
Do  Replaord 
Loop 

Case  Xrouopt  -  10 

Harder  -  "Reverse  Isolation” 
Passdata  -  "Q54  2” 

Ptpoint  "  2 
Da  Replaord 
Loop 

Case  Xrouapt  -  11 

Horder  -  "Strict  Isolation" 
Passdata  -  "Q54  2" 

Ptpoint  -  2 
Do  Replaord 
Loop 

Case  Xrouopt  -  12 

Horder  ■  "Lumbar  Puncture” 
Passdata  -  "Q5B  1” 

Ptpoint  -  4 
Todayonly  -  ”T” 

Do  Replaord 


Cose  Xrouopt  ■  13 

ttorder  -  "N-G  Insertion*' 

Passdata  -  ”Q31  1” 

Ptpoint  *  2 
Todayonly  -  ”T” 

Do  Replaord 
Loop 

Case  Xrouopt  -  14 

Harder  “  "Parencentesis" 

Passdata  -  "QSO  1 ” 

Ptpoint  -  4 
Todayonly  -  ”T” 

Do  Replaord 
Loop 

Case  Xrouopt  -  15 

Harder  ■  ’’Phototherapy" 

Passdata  -  ”Q53  1" 

Ptpoint  ■  2 
Do  Replaord 
Loop 

Case  Xrouopt  -  16 

Harder  ■  "ROH  Exercises  [Passive!” 

Da  B:Time 

Da  Range 

Do  Replaord 

Loop 

Case  Xrouopt  -  17 

Harder  •  "2-Point  Restaints" 
Passdata  -  ”Q50  1” 

Ptpoint  ■  2 
Do  Replaord 
Loop 

Case  Xrouopt  “  10 

Harder  ■  "4-Point  Restraints" 
Passdata  -  "Q50  2" 

Ptpoint  -  2 
Da  Replaord 
Loop 

Case  Xrouopt  -  10 

Harder  ■  "Posey  Restraint” 

Passdata  -  ”Q50  3” 

Ptpoint  ■  2 
Do  Replaord 
Loop 
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Case  Xrauopt  -  20 

border  "  ’’Simple  Dressing  Change” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  22  .Or.  Timeopt  -  41] 

*  —  Less  than  x  2 
Passdata  -  ”037  1" 

Ptpoint  -  0 

Case  CTimeopt  >  21  .And.  Timeopt  <  25] 

*  —  X  2  or  BID 
Passdata  -  ”037  2” 

Ptpoint  -  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  31] 

*  —  X  3  or  TID 
Passdata  -  ”037  3” 

Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  34] 

*  —  X  4  or  QIO 
Passdata  -  ”Q37  4" 

Ptpoint  -  4 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35] 

*  —  X  6  or  Q6h 
Passdata  -  ”Q37  5” 

Ptpoint  -  6 

Case  CTimeopt  -  36  .Or.  Ti.  sopt  -  37] 

*  —  X  12  or  Q2h 
Passdata  -  ”037  6” 

Ptpoint  -  12 

Case  CTimeopt  -  38  .Or.  Timeopt  -  39] 

*  —  X  24  ar  Qlh 
Passdata  -  ”037  7” 

Ptpoint  -  24 

Endcase 

Do  Replaord 
Loop 

Case  Xrouopt  -  21 

harder  -  "Spec  Gravity” 

Do  B:Time 
Do  Routine 
Do  Replaord 
Loop 

Case  Xrauopt  -  22 
border  -  ’’Spin  HCT" 

Do  B:Time 
Do  Routine 


Do  Replaord 
Loop 

Case  Xrouopt  "  23 

Marder  -  ’’Straight  Cath” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  31  .Or.  Timeopt  -  413 

*  —  Less  than  x  4 
Passdata  -  "Q32  2” 

Ptpoint  *  0 

Case  CTimeopt  >  30  .And.  Timeopt  <  413 

*  —  X  4  or  more 
Passdata  -  ”Q32  3” 

Ptpoint  -  4 

Endcase 

Do  Replaord 
Loop 

Case  Xrouopt  *  24 

norder  *  ’’Surgical  Shave  Prep” 

Passdata  -  ”034  1” 

Ptpoint  -  2 
Tadayonly  -  "T" 

Do  Replaord 
Loop 

Case  Xrouopt  -  25 
Marder  "  ”SS  Enema” 

Passdata  -  ”035  1” 

Ptpoint  *  2 
Todayonly  -  ”T” 

Do  Replaord 
Loop 

Case  Xrouopt  ”  26 

Marder  -  ’’Tap  Water  Enema” 

Passdata  -  ”Q35  1” 

Ptpoint  ■  2 
Tadayonly  “  ”T” 

Do  Replaord 
Loop 

Case  Xrouopt  “  27 

Harder  ■  ’’Thoracentesis” 

Passdata  -  ”Q59  1" 

Ptpoint  “  4 


Todayonly  -  "T” 

□a  Roplaard 
Loop 

Cose  Xrouopt  ”  28 

Morder  “  ’’Tube  Care  Cnot  trach3” 

□a  B:Time 

Do  Case 

Case  CTimeopt  <  22  .Or.  Timeopt  -  413 

*  —  Tube  care  less  than  x  2 
Passdata  -  ”030  1” 

Ptpoint  ■  0 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  —  Tube  care  x  2 
Passdata  -  "Q3B  2” 

Ptpoint  -  2 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  —  Tube  care  x  3 
Passdata  -  ”Q3B  3” 

Ptpoint  -  3 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  Tube  care  x  4 
Passdata  -  ”038  4” 

Ptpoint  -  4 

Case  CTimeopt  ■  34  .Or.  Timeopt  -  353 

*  —  Tube  care  x  6 
Passdata  -  "Q3B  5” 

Ptpoint  -  6 

Case  CTimeopt  -  36  .Or.  Timeopt  “  373 

*  --  Tube  care  x  12 
Passdata  -  ”030  6" 

Ptpoint  -  12 

Case  CTimeopt  ■  3B  .Or.  Timeopt  “  333 

*  —  Tube  care  x  24 
Passdata  -  "Q3B  7” 

Ptpoint  -  24 

Endcase 

Do  Replaord 
Loop 

Case  Xrouopt  ■  29 

Morder  ■  "5  &  A  of  Urine” 

Do  B:Time 
Do  Routine 
□o  Replaord 


Case  Xrauopt  ■  30 

*  —  Doctor’s  Order  Screen 
Dmenu  -  ’  1  ’ 

Return 

Case  Xrauopt  *  31 

*  --  flaster  Screen 
Dmenu  -  ’  ’ 

Return 

Endcase 

Release  Xrouopt 


Enddo 


»««*  US.PRG 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  S3  November  1385 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  C1385 

*  Purpose.-  Determine  the  vital  sign  orders  of 

*  the  patient. 

*  Input  Files  Used:  US.Scr  and  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doc_Menu.Prg 

*  Routine  Called:  Time.Prg 

*  Modification  Date:  4  February  1386 

m 

*  --  Screen  Input  Program  For  US  — 

* 

Do  Setup 
Public  Xvsopt 

Do  While  .T. 

*  —  Screen  Display  A: US.Scr  — 

Set  Color  To  W+/B.UJ+/B 
Clear 

??  Flash*  ”S.  A:  US.Scr/'' 

Set  Color  To  W+/B,W+/B 
Xvsopt  *  IS 
Do  Headings 
Do  Startup 

0  S3 , 66  Get  Xvsopt  Piet  "S3”  Range  0,13 
Read 

*  —  Evaluate  action  based  an  the  option  selected  — 

Da  Case 

Case  Xvsopt  “  0 
*  —  Sign-Off 
Close  Database 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xvsopt  *  1 

Morder  -  "T-P-R,  B/P” 

Do  B:Time 

Do  Case 

Case  Timeopt  <  34 


*  —  QID  or  less 
Passdata  “  ”Q1  1” 

Ptpoint  "  1 

Case  CTimeopt  -  34  .Or.  Timeopt 

*  —  Q4h  or  x  6 
Passdate  -  ”01  2” 

Ptpoint  ■  2 

Case  CTimeopt  -  36  .Or.  Timeopt 

*  —  Q2h  or  x  12 
Passdate  “  ”01  3” 

Ptpoint  *  4 

Case  CTimeopt  -  30  .Or.  Timeopt 

*  —  Qlh  or  x  24 
Passdate  -  ”01  4” 

Ptpoint  -  0 

Case  Timeopt  “  41 

*  —  No  frequency  indicated 
Passdate  ■  ”Q1  5” 

Ptpoint  -  0 

Endcase 

□o  Replaord 
Loop 

Case  Xvsopt  -  2 

Harder  -  "Post-ap” 

Passdata  -  ”00  1” 

Ptpoint  *  6 
Todayanly  -  ”T” 

Do  Replaord 
Loop 

Case  Xvsopt  "  3 

Horder  “  "Post  Partum” 

Passdata  -  "00  2” 

Ptpoint  "  6 
Todayonly  “  ”T” 

Do  Replaord 
Loop 

Case  Xvsopt  “  4 

Harder  ■  "Post  Newborn” 

Passdata  ■  ”00  3” 

Ptpoint  “  6 
Todayonly  "  "T” 

Do  Replaord 


Case  Xvsapt  -  5 
Harder  -  ”FHT" 

□a  B:Time 

If  CTimeopt  <  34  .Or.  Timeapt 

*  —  Less  than  Q4h 
Passdata  -  "Q6  1" 

Ptpaint  **  0 

Else 

*  —  Q4h  or  mare 
Passdata  “  ”Q6  2” 

Ptpaint  -  2 

Endif 

Do  Replaard 
Loop 

Case  Xvsapt  -  6 

Harder  -  "Apical  Pulse” 

Da  B:Time 

If  CTimeapt  <  31  .Or.  Timeapt 

*  —  Less  than  QID 
Passdata  -  ”Q3  1” 

Ptpaint  -  0 

Else 

*  —  QID  or  more 
Passdata  -  ”Q3  2” 

Ptpaint  -  2 

Endif 

Da  Replaard 
Loop 

Case  Xvsapt  *  7 

Harder  “  ’’Femoral  Pulse” 

Da  B:Time 

If  CTimeapt  <  34  .Or.  Timeapt 

*  —  Less  than  Q4h 
Passdata  -  ”Q4  1” 

Ptpaint  *  0 

Else 

*  —  Q4h  or  mare 
Passdata  -  ”Q4  2” 

Ptpaint  -  2 

Endif 


Da  Replaard 


'  «r  ”  v  ^  - >  -  »  _> 


Case  Xvsopt  •  S 

border  ~  ’’Pedal  PuIsb” 

Da  B:Time 

If  CTimeopt  <  34  .Or.  Timeopt 

*  —  Less  than  Q4h 
Passdata  -  ”Q5  1” 

Ptpoint  “  0 

Else 

*  —  Q4h  or  more 
Passdata  "  "Q5  2” 

Ptpoint  -  2 

Endif 

Do  Replaord 
Loop 

Case  Xvsopt  -  9 

border  -  ’’Axillary  Temps” 

Do  B:Time 

IF  CTimeopt  <  31  .Or.  Timeopt 

*  —  Less  than  QID 
Passdata  ■  ”Q2  2" 

Ptpoint  -  0 

Else 

*  —  DID  or  mare 
Passdata  -  ”Q2  4” 

Ptpoint  “  2 

Endif 

Do  Replaord 
Loop 

Case  Xvsopt  -  10 

border  -  ’’Rectal  Temps” 

Do  B:Time 

If  CTimeopt  <  31  .Or.  Timeopt 

*  —  Less  than  QID 
Passdata  ”  ”Q2  1” 

Ptpoint  ■  0 

Else 

*  —  QID  or  more 
Passdata  -  ”Q2  3” 

Ptpoint  “  2 

Endif 


Do  Reploord 
Loop 

Case  Xvsopt  ■  11 

Morder  *  ’’Tilt  Test” 

Do  B:Time 

If  CTimeopt  <  34  .Or.  Timeopt 

*  —  Less  than  Q4h 
Passdote  -  ”07  1” 

Ptpoint  -  0 

Else 

*  —  Q4h  or  more 
Passdote  -  ”Q7  2” 

Ptpoint  -  2 

Endif 

Do  Replaord 
Loop 

Case  Xvsopt  -  12 

*  —  Doctor’s  Order  Screen 
Dmenu  “  ’  1  ’ 

Return 

Case  Xvsopt  -  13 

*  —  Master  Screen 

Dmenu  -  ’  ’ 

Return 

Endca3e 

Release  Xvsopt 


Endda 


**•*  XRAY. PRG 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  DSN 

*  Date:  S  December  1905 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Determine  xray  orders  far  the 

*  patient. 

*  Input  Files  Used:  Xray.Scr  and  Proof ile.Prg 

*  Output  Files  Used:  Orders. Dbf 

»  Calling  Routine:  Doc_f1enu  . Prg 

*  Routine  Called:  Time. Prg 

*  Modification  Date:  4  February  1986 

* 

*  —  Screen  Input  Program  Far  Xray  — 

* 

Do  Setup 
Public  Xxrayapt 

Do  Ulhile  .T. 

*  —  Screen  Display  B: Xray.Scr  -- 

Set  Color  To  U+/B,UJ+/B 
Clear 

??  F lash+ ”S . B ; Xray . Scr / ” 

Set  Color  To  UJ+/B ,  UJ+/B 
Xxrayapt  -  19 
Do  Headings 
Do  Startup 

0  22,66  Get  Xxrayopt  Piet  ”99”  Range  0,20 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 
Da  Case 

Case  Xxrayopt  -  0 
*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xxrayopt  “  1 

harder  -  "Abdomen  Flat  Plate  Xray” 

Do  B-.Time 
Do  Replaard 


Case  Xxrayopt  -  2 

Harder  ■  ’’Abdomen  AP  Xray” 

Da  B:Time 
Da  Replaard 
Loop 

Case  Xxrayopt  -  3 

Harder  -  ’’Abdomen  3-uay  Xray 
Da  B:Time 
Do  RBplaard 
Loop 

Case  Xxrayopt  ■  4 

Horder  -  ’’Angiography” 

Da  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  **  5 

Horder  -  ’’Arteriography” 

Do  B:Time 
Da  Replaord 
Loop 

Case  Xxrayopt  “  6 

Horder  -  "Barium  Enema” 

Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  ■  7 

Horder  -  "Brain  Scan” 

Da  B:Time 
Do  Replaord 
Loop 

Ca3e  Xxrayopt  -  0 

Harder  -  ’’Chest  PA  Xray” 

Do  B:Time 
Do  Replaord 
Loop 

Case  Xxrayopt  “  9 

Horder  -  "Chest  Lateral  Xray 
Do  B:Time 
Da  Replaord 
Loop 

Case  Xxrayopt  “  10 
Harder  -  ”CT  Scan” 


Do  B:Time 
□o  Replaord 
Loop 

Case  Xxrayapt  “  11 

norder  -  '’Gallbladder  Series 
Da  B:Time 
Da  Replaord 
Loop 

Case  Xxrayapt  ”  IS 
norder  -  "I UP" 

Da  B:Time 
Do  Replaord 
Loop 

Case  Xxrayapt  “  13 

Harder  -  "Sinus  Series” 

Da  B:Time 
Da  Replaord 
Loop 

Case  Xxrayapt  “  14 

Harder  “  "Skull  Xray” 

Da  B:Time 
Da  Replaord 
Loop 

Case  Xxrayapt  -  15 

Harder  -  "Spine  Xray” 

Da  B:Time 
Da  Replaord 
Loop 

Case  Xxrayapt  “  IB 

norder  -  "Tomography" 

Da  B:Time 
Do  Replaord 
Loop 

Case  Xxrayapt  “  17 

Harder  “  "Upper  GI  Series” 
Do  B:Time 
Da  Replaord 
Loop 

Case  Xxrayapt  "  IB 

Harder  -  "Ultrasound” 

Do  B:Time 


Do  Replaord 
Loop 


Case  Xxroyopt  “  19 

*  —  Doctor’s  OrdBr  Screen 
Dmenu  -  ’ 1  ’ 

Return 

Case  Xxrayopt  -  20 

*  —  Master  Screen 

Dmenu  “  ’  ’ 

Return 

Endcase 

Release  Xxrayopt 
Enddo 


Mi] 


****  DISCONT . PRG  ••••***••*•*«*••***•*•»••••*•**•*•*•••••• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  18  December  1885 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSB5 

*  Purpose:  Display  patient  orders  to  determine 

*  if  any  are  to  be  discontinued. 

*  Input  Files  Used:  Discont.Scr  and  Proof i le . Pry 

*  Output  Files  Used:  Orders. Dbf 

*  Calling  Routine:  Doctor. Prg 

*  Routine  Calls:  None 

*  Modification  Date:  18  February  1885 

* 

*  —  Screen  Input  Program  For  Discont  -- 

* 

Do  Setup 

Public  Xdi3opt , Xdcdate, Xdcorder , Xdcprac 
Public  Xdcfreq, Xmptfmpssn, Xordpack 
Xardpack  *  .F. 

*  —  Identify  correct  patient  to  display  orders  — 

Use  B: Orders 

Store  +  Ptfmpssn  +  To  Xmptfmpssn 

Locate  For  Fmpssn  -  SXmptfmpssn  .And.  Module  #  ’N’ 

Do  While  .T. 

•  —  Store  data  from  Dbf  file  into  variable  names  -- 

Xdcdate  -  Odate 
Xdctime  “  Otime 
Xdcorder  -  Order 
Xdcfreq  -  Freq 
Xdcprac  *  Prac 

*  --  Screen  Display  A: Discont .Scr  -- 

Set  Color  To  U+/B.UI+/B 
Clear 

??  Flash+”S . A: Discont . Scr/ " 

Set  Color  To  U1+/B ,  W+/B 
Xdisopt  -  1 
Do  Headings 
0  13,1  Say  Xdcdate 
0  13,10  Say  Xdctime 
0  13,13  Say  Xdcorder 
0  13,47  Say  Xdcfreq 
0  13,50  Say  Xdcprac 


0  22,67  Get  Xdisopt  Piet  ”9”  Range  0,4 
Read 


*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 


Case  Xdisopt  -  0 
*  --  Sign-Off 
If  Xordpack  -  .T. 

Pack 

Endif 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 


Case  Xdisopt  -  1 
*  —  Next  Order 
Skip 

Do  While  CCFmpssn  #  &Xmptfmpssnl .Or . C Module  ■  ”N” 
If  E0FC3 


0  24,4  Say  "No  Additional  Medical  Orders  On  ” 
0  24,36  Say  "This  PatiBnt  —  Press  Any  Key  To 
0  24,69  Say  "Continue” 

Set  Console  Off 
Wait 

Set  Console  On 

If  Xordpack  -  .T. 

Pack 
Endif 
Return 
Else 
Skip 
Endif 
Enddo 
If  EOF  Cl 

0  24,4  Say  "No  Additional  Medical  Orders  On  ” 

0  24,36  Say  "This  Patient  —  Press  Any  Key  To  ” 
0  24,69  Say  "Continue” 

Set  Console  OFF 
Wait 


Set  Console  On 
If  Xordpack  -  .T. 

Pack 

Endif 

Return 

Else 

Loop 

Endif 


3 


Case  Xdisapt  "  2 

*  —  Discontinue  The  Order 
Xordpack  -  .T. 

Delete 

Skip 

Da  While  CCFmpssn  #  &XmptFmpssn3 . Or . [Module  “  ”N” 
IF  E0FC3 

0  24,4  Say  ”No  Additional  Medical  Orders  On  ” 
0  24, 3B  Say  ’’This  PatiBnt  —  Press  Any  KBy  To 
0  24,63  Say  ’’Continue” 

Set  Console  OFF 
Wait 

Set  Console  On 
Pack 
Return 
Else 
Skip 
EndiF 
Enddo 
IF  EOF  Cl 

0  24,4  Say  ”Na  Additional  Medical  Orders  On  ” 

0  24,36  Say  "This  Patient  —  Press  Any  Key  To  ” 
0  24,69  Say  ’’Continue” 

Set  Console  OFF 
Wait 

Set  Console  On 
Pack 
Return 
Else 
Loop 
EndiF 

Case  Xdisapt  -  3 

*  —  Dr’s  Master 
IF  Xordpack  -  .T. 

Pack 

EndiF 

Dmenu  -”1" 

Return 

Case  Xdisopt  ■  4 

*  —  MastBr 

IF  Xordpack  -  .T. 

Pack 

EndiF 

Dmenu  ” 

Return 


****  TRANSFER. PRG  •*•*•»••••••*•*•»»*•••*•••••*•***••••• 

*  Author:  Gory  R.  Harmeyer  LCOR  NC  USN 

*  Date:  S  December  1SB5 

*  Screen  Generated  By:  ThB  Software  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Menu  to  determine  if  patient  will 

*  be  admitted,  transferred  or 

*  discharged. 

*  Input  Files  Used:  Transfer. Scr  and  Procfile.Prg 

*  Output  Files  UsBd:  Orders. Dbf 

*  Calling  Routine:  Doctor. Prg 

*  Routine  Called:  None 

*  Hodification  Date:  4  February  1SBB 

* 

*  --  Screen  Input  Program  For  Transfer  -- 

* 

Do  Setup 
Puhlic  Xtranopt 

Do  While  .T. 

*  —  Screen  Display  A : Transfer . Scr  — 

Set  Color  To  W+/B ,  UI+/B 
Clear 

??  Flash+"S. A: Transfer .Scr/” 

Set  Color  To  UJ+/B ,  UJ+/B 
Xtranopt  “  4 
Da  Headings 
Do  Startup 

B  22,67  Get  Xtranopt  Piet  ”9”  Range  0,5 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xtranopt  -  0 
*  —  Sign-Off 
Close  Databases 
Release  All 
Close  Procedure 

Case  Xtranopt  -  1 
Morder  -  "Admit” 

Passdata  -  "6B  2” 

Ptpoint  -  12 
Todayonly  -  ”T” 


Da  Replaord 
Loop 

Case  Xtranopt  -  2 
Morder  “  ’’Transfer” 

Passdata  -  ’’62  1” 

Ptpoint  -  4 
Tadayanly  “  ”T“ 

□a  Replaord 
Loop 

Case  Xtranopt  ”  3 

Harder  -  ’’Discharge” 

Do  Replaord 
Loop 

Case  Xtranopt  -  4 

»  —  Doctor’s  Master  Screen 
Dmenu  ■  ’ 1 ’ 

Return 

Case  Xtranopt  -  S 
*  —  Master  Screen 
Dmenu  -  ’  ’ 

Return 

Endcase 

Release  Xtranopt 


Endda 


**•  NURSE. PRG  ****•«•* 
'  Author: 

Dato: 

ScreBn  Generated  By: 
Purpose-. 


Input  Files  Used: 
Output  Files  Used: 
Output  File  Created: 
Calling  Routine: 
Routine  Calls: 
nodif ication  Date: 


Gary  R.  Harmeyer  LCOR  NC  USN 
SO  December  1SB5 
The  SoFtware  Bottling  Company 
Of  New  York,  clSB5 
Provide  the  nurse  options  of  enter¬ 
ing  or  reviewing  nursing  are 
plans.  The  module  allow.  ;he 
nurse  to  determine  the  patiBnt 
classification  level  either  in¬ 
ternally  or  externally. 

Nurse. Scr  and  Procfile.Prg 
Orders  and  Ncaredb.Dbf 
Return .Txt 
UardS  or  Wards. Prg 
Nursel . Prg 
3  March  1986 


*  —  Screen  Input  Program  For  Nurse  -- 

* 

□a  Setup 

Public  Xnurapt , Nmenu , Xpoints , Xmonpt , Xemopt , Xroupt , Xlevel 
Public  Xnow , Xtoday 
Nmenu  -  Spaced] 

Xpoints  -  0 

Xmanpt  -  0 

Xemopt  “  0 

Xroupt  -  0 

Xlevel  “  SpaceClSD 

Stare  DTOCCDateC]]  To  Xnaw 

Store  ”  +  Xnaw  +  ” 1 "  To  Xtoday 


Do  While  .T. 


*  —  Screen  Display  A: Nurse. Scr  — 

Set  Color  To  W+/B ,  W+/B 
Clear 

??  Flash+,’S  .  A:  Nurse  .  Scr/ ” 

Set  Color  To  W+/B,W+/B 
Xnuropt  “  8 
Do  Headings 

0  SS,67  Get  Xnuropt  Piet  ”9”  Range  0,8 
Read 

*  --  Evaluate  action  based  on  the  option  selected  -- 


□o  Case 


Case  Xnuropt  *  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  flaster 

Case  Xnuropt  ■  1 

*  —  Enter/ Inactivate  Nursing  Care  Plan 
□a  B:Nurssl 

If  Nmenu  -  ”1” 

Loop 

Else 

Return 

Endif 


Case  Xnuropt  -  5 

*  —  Review  Nursing  Cars  Plan 
Clear 

Set  Color  Ta  W+/B.W+/B 
0  1,20  Say  "Nursing  Care  Plan  For:” 

0  1,43  Say  Ourpt 

0  3,10  Say  "Press  —  Ctrl  and  S  —  Keys  *’ 

0  3,38  Say  ”ta  Pause  The  Scrolling  If  Necessary” 

Use  B:Ncaredb 

Stare  .  +  Ptfmpssn  +  ”  To  Mptfmp33n 

Report  Form  B:NC  For  Nfmpssn  -  Smptfmpssn 

Wait 

Loop 

Case  Xnuropt  -  3 

*  —  Print  Nursing  Care  Plan 

0  24,0  Say  ’’Turn  On  Your  Printer,  ” 

0  24,22  Say  ’’Then  Hit  Any  Key  To  Print” 

Set  Console  Off 
Wait 

Set  Console  On 
Clear 

0  12,30  Say  ’’Printing,  Please  Wait” 

Set  Console  Off 
Set  Device  To  Print 

0  1,20  Say  ’’Nursing  Care  Plan  For:” 

0  1,43  Say  Ourpt 
Set  Device  Ta  Screen 
Use  B:Ncaredb 

Store  .  +  Ptfmpssn  +  To  flptfmpssn 

Report  Form  B:NC  Noeject; 

To  Print  For  Nfmpssn  -  Smptfmpssn 
Set  Console  On 

0  24,0  Say  ’’Finished  Printing,  Hit  ” 


■■ -V  • 


0  24,22  Say  ’’Any  Key  To  Continue” 

Set  Console  Off 
Wait 

Set  Console  On 
Loop 

Case  Xnuropt  -  4 

*  --  Determine  Patient  Classification  Level 
Use  B: Orders 

Stare  ’’ ’ ’’  +■  Ptfmpssn  +  ”’”  To  Mptfmpssn 
Copy  To  B: Return  Fields  Expertsys  Sdf ; 

Fmpssn  -  Smptfmpssn  .And.  COnlytoday  -  ”F”  .Or 
COnly today  -  ”T”  .And.  Odate  -  SXtodayDD 
Close  Procedure 
Close  Databases 
Release  All 

*  --  Exit  this  portion  of  prototype  software 
Quit 

Case  Xnuropt  -  5 

*  --  Review  Patient  Care  Requirements 
Clear 

Set  Color  To  W+/B.W+/B 

0  1,17  Say  "Patient  Care  Requirements  For:” 

0  1,48  Say  Ourpt 

0  3,10  Say  "Press  —  Ctrl  and  S  —  Keys  To  Pause 

0  3,47  Say  "The  Scrolling  If  Necessary" 

Use  B: Orders 

Stare  ” +  Ptfmpssn  +  .  To  Mptf mpssn 

Report  Form  B:0rd  For; 

Fmpssn  -  &mptf mpssn  .And.  COnly todoy  -  ”F”  .Or 
COnlytoday  -  ”T”  .And.  Odate  -  &XtodayD3 
Wait 
Loop 

Case  Xnuropt  ■  S 

*  —  Print  Patient  Care  Requirements 
0  24,0  Say  ’’Turn  On  Your  Printer,  ” 

0  24,23  Say  ’’Then  Hit  Any  Key  To  Print” 

Set  Console  Off 
Wait 

Set  Console  On 
Clear 

0  12,30  Say  ’’Printing,  Please  Wait” 

Set  Console  Off 
Set  Device  To  Print 

0  1,17  Say  ’’Patient  Care  Requirements  For:” 

0  1,47  Say  Ourpt 
Set  Device  To  Screen 
Use  B: Orders 


Store  ”  +  Ptfmpssn  +  To  flptfmpssn 
Report  Form  B:Ord  Noeject  To  Print  For; 
Fmpssn  *  &mptfmpssn  .And.  COnlytodoy  •  ” 
COnly today  -  ”T”  .And.  Odate  -  8Xtoday33 
Set  Console  On 

0  24,0  Say  "Finished  Printing,  Hit  ” 

0  24,23  Say  "Any  Key  To  Continue” 

Set  Console  Off 
Ulait 

Set  Console  On 
Loop 

Case  Xnuropt  »  7 

*  —  Internal  Patient  Classification 
Clear 

Set  Color  To  W+/B,W+/B 

0  7,2S  Say  "Please  Wait  While  Calculating” 
Use  B: Orders 

Store  +  Ptfmpssn  +  "  ’  ”  To  Flptfmpssn 

Sum  Critical  To  Xpoints  For; 

Fmpssn  -  &mptfmpssn  .And.  COnlytoday  -  ” 
COnlytoday  -  ”T”  .And.  Odate  “  &Xtoday33 
Sum  rionpt  To  Xmonpt  For; 

Fmpssn  -  &mptfmpssn  .And.  COnlytoday  -  ” 
COnlytoday  -  ”T”  .And.  Odate  -  &Xtoday33 
If  Xmonpt  >  0 

Xpoints  -  Xpoints  +  6 
Endif 

Sum  Emapt  To  Xemapt  For; 

Fmpssn  -  &mptfmpssn  .And.  COnlytoday  -  ” 
COnlytoday  -  "T”  .And.  Odate  -  &Xtoday33 
If  Xemapt  >•  10 

Xpoints  -  Xpoints  +  10 
Else 

Xpoints  “  Xpoints  +  Xemopt 
Endif 

Sum  Roupt  To  Xroupt  For; 

Fmpssn  -  Smptfmpssn  .And.  COnlytoday  -  " 
COnlytoday  -  "T”  .And.  Odate  "  SXtodayDl 
Do  Case 

Case  Xroupt  <  B 

Xpoints  -  Xpoints  +  0 
Case  CXroupt  >  5  .And.  Xroupt  <  123 
Xpoints  -  Xpoints  +  2 
Case  CXroupt  >  11  .And.  Xroupt  <  1B3 
Xpoints  -  Xpoints  +  4 
Case  CXroupt  >  17  .And.  Xroupt  <  243 
Xpoints  -  Xpoints  +  6 


Case  Xroupt  >  S3 

Xpaints  -  Xpoints  +  8 
Endcase 

*  —  Determine  patient  classification  level  based  on 

*  —  patient  care  points  — 

Do  Case 

Case  Xpoints  <  13 

Xlevel  -  "Category  I” 

CasB  CXpaints  >  IS  .And.  Xpoints  <  351 
Xlevel  -  "Category  II” 

Case  CXpoints  >  31  .And.  Xpoints  <  641 
Xlevel  -  "Category  III” 

Case  CXpoints  >  63  .And.  Xpoints  <  961 
Xlevel  -  "Category  IU” 

Case  CXpaints  >  95  .And.  Xpoints  <  1461 
Xlevel  -  "Category  U” 

CasB  Xpoints  >  146 

Xlevel  -  "Category  IU” 

Endcase 

Clear 

Set  Color  To  UJ+/8,U1+/B 
0  7,30  Say  "Patient:  " 

0  7,39  Say  Ourpt 
0  8,30  Say  "Is  In:  ” 

0  8,37  Say  Xlevel 
0  10,30  Say  "Point  Ualue  Is:” 

0  10,46  Say  Xpaints 

0  54,0  Say  "Calculation  Complete  —  " 

0  54,54  Say  "Press  Any  Key  To  Continue” 

Set  Console  Off 
Wait 

Set  Console  On 
Loop 

Case  Xnuropt  -  8 

*  —  Master  Screen 
Return 

Endcase 

Release  Xnuropt , Xpoints , Xmonpt , Xemopt , Xroupt , Xlevel 
Release  Xnouj.Xtoday 


Enddo 


*****  NURSE1  .  PRG 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Oats:  20  December  1905 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Enables  the  nurse  to  enter  or 

*  modify  a  nursing  care  plan. 

*  Input  Files  Used:  Nursel.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Nurse.  Prg 

*  Routine  Calls:  N_Diag  or  Inact.Prg 

*  nodification  Date:  4  February  1906 

* 

*  —  Screen  Input  Program  For  Nursel  — 

* 

Do  Setup 

Public  Xnurslapt 
Do  While  .T. 

*  —  Screen  Display  A: Nursel.Scr  — 

Set  Color  To  UJ+/B ,  UI+/B 
Clear 

??  Flash-*- ”S  .  A :  Nursel  .  Scr / " 

Set  Color  Ta  UJ+/B ,  UI+/B 
Xnurslopt  -  4 
Do  Headings 

0  22,67  Get  Xnurslopt  Piet  ”3”  Range  0,4 
Read 

*  --  Evaluate  action  based  on  the  option  selected  — 
Da  Case 

Case  Xnurslopt  -  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  Ta  Master 

Case  Xnurslopt  -  1 

*  --  Enter  A  New  Care  Plan 
Da  B:N_Diag 

Return 

Case  Xnurslapt  -  2 

*  --  Inactivate  A  Nursing  Care  Plan 


Do  B : Inoctive 
Return 

Case  Xnurslopt  “  3 

*  --  Nurse’s  Master  Screen 
Nmenu  -  ”1” 

Return 

Case  Xnurslopt  -  4 

*  —  Master  Screen 

Store  ’  ’  To  Nmenu 

Return 

Endcase 

Release  Xnurslopt 


Endda 


*****  n.diag.prg  ****** 

*  Author: 

*  Data: 

*  Screen  Generated  By: 

« 

*  Purpose: 

* 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

* 

*  Modification  Date: 

* 


Gary  R .  Harmeyer  LCDR  NC  USN 
20  December  19B5 
The  Software  Bottling  Company 
Of  New  York,  clSSS 
Allows  the  nurse  to  chose  from  a 
menu  of  four  nursing  diagnoses. 
N_Diag.Scr  and  Pracfile.Prg 
None 

Nursel . Prg 

Assess_l , Assess_2 , Assess_3 ,  or 
Assess_4 .  Prg 
4  February  138S 


*  —  Screen  Input  Program  Far  N_Diag  -- 

* 


Da  Setup 

Public  Xndiagopt , Nursdiag , Emo teach , Nr elate , Ngoal , Nassess 

Public  Assoth , Re lath , Goaoth , Or doth 

Nursdiag  -  SpaceCSOD 

Emoteach  -  SpaceCISl 

Nrelate  -  SpaceC253 

Ngoal  -  SpaceC3B3 

Nassess  “  SpaceC273 

Assoth  -  SpaceC273 

Relath  -  SpaceC253 

Goaoth  -  SpaceC30] 

Ordath  -  SpaceC273 


Do  While  .T. 

*  —  Screen  Display  A:N_Diag.Scr  — 


Set  Color  To  UJ+/B ,  W+/B 
Clear 

??  Flash-*- "S  .  A :  N_Diag  .  Scr/  ” 

Set  Color  To  W+/B , W+/B 
Xndiagopt  -  5 
Do  Headings 
Do  Startup 

0  22,67  Get  Xndiagopt  Piet  ”3”  Range  0,6 
Read 


*  —  Evaluate  action  based  on  the  option  selected  — 
Do  Case 


Case  Xndiagopt  *  0 
*  --  Sign-Off 


V  % 


Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xndiagopt  -  1 

Nursdiag  -  ’’Comfort  Alteration  In:  Pain” 

Da  B:Assess_l 
Loop 

Case  Xndiagopt  -  S 

Nursdiag  -  ’’Communication  Impaired:  Uerbal” 

Do  B:Assess_5 

Loop 

Case  Xndiagopt  “  3 

Nursdiag  -  ’’Impaired  Physical  Mobility” 

Do  B:Assess_3 
Loop 

Case  Xndiagopt  -  4 

Nursdiag  -  ’’Self-Care  Deficit” 

Da  B:Assess_4 
Loop 

Case  Xndiagopt  -  5 

*  —  Nurse's  Master  Screen 
Nmenu  “  ”1" 

Return 

Case  Xndiagopt  -  6 

*  —  Master  Screen 
Nmenu  “  ”  ” 

Return 

Endcase 

Release  Xndiagopt 


Enddo 


-Jk. . .vW,  J  nVi  ft  m 
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****  ASSESS_1 . PRG 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  SO  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  OF  New  York,  C19B5 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  nursing  assessments  For  a 

*  patient  with  a  nursing  diagnosis 

*  of  comfort  alteration  in:  pain. 

*  Input  Files  UsBd:  Assess_l.Scr  and  ProcfilB.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  N_Diag.Prg 

*  Routine  Called:  Relate_l.Prg 

*  Modification  Date:  3  February  1986 

* 

♦  —  Screen  Input  Program  For  Assess_l  -- 

» 

Do  Setup 
Public  Xasslopt 

Do  While  .T. 

*  —  Screen  Display  A : Assess_l . Scr  -- 

Set  Color  To  UJ+/B,U+/B 
Clear 

??  Flash+"S . A: Assess_l .Scr/” 

Set  Color  To  W+/B,UJ+/B 
Xasslopt  -  11 
Do  Headings 

0  22,66  Get  Xasslopt  Piet  ”99”  Range  1,16 
Read 

*  —  Allows  the  nurse  to  document  assessment  of  the 

*  —  patient  — 

Da  Case 

Case  Xasslopt  -  1 

Nassess  -  ’’Altered  Time  Perception” 

Do  B:Relate_l 
Return 

Case  Xasslopt  -  2 

Nassess  -  ’’Alteration  In  Muscle  Tone” 

Do  B:Relate_l 
Return 


Case  Xasslopt  -  3 

Nassess  “  ’’Autonomic  Response” 

Do  B:Relate_l 
Return 

Case  Xasslopt  •  4 

Nassess  -  ’’Distraction  Behavior” 

Do  B:Relate_l 
Return 

Case  Xasslopt  -  5 

Nassess  ■  ’’Facial  Mask” 

Do  B:Relate_l 
Return 

Case  Xasslopt  -  6 
@  IB, 24  Get  Assath; 

Piet  ”! XXXXXXXXXXXXXXXXXXXXXXXXXX 
Read 

Nassess  ”  Assoth 
Do  B:Relate_l 
Return 

Case  Xasslopt  -  7 

Nassess  -  ’’Guarding  Behavior” 

Da  B: Relate_l 
Return 

Case  Xasslopt  -  8 

Nassess  "  ’’Impaired  Thought  Process 

Da  B:Relate_l 

Return 

Case  Xasslopt  -  9 

Nassess  -  ’’Narrowing  Focus” 

Do  B:Relate_l 
Return 

Case  Xasslopt  “  10 
Nassess  ■  ’’Pacing” 

Do  B:Relate_l 
Return 

Case  Xasslopt  ■  11 

Nassess  *  ’’Patient  Report” 

Do  B:Relate_l 
Return 

Case  Xasslopt  -  12 

Nassess  -  ”Self_Facusing ” 


Do  B:Relate_l 
Return 

Case  Xasslopt  -  13 

Nassess  -  ’’Talkative” 

Do  B:Relate_l 
Return 

Case  Xasslopt  ■  14 

Nassess  -  ’’Uerhal  Complaint” 

Do  B.-Relate_l 
Return 

Case  Xasslopt  -  15 

Nassess  -  ’’Uerhal  Complaint” 

Do  B:Relate_l 
Return 

Case  Xasslopt  -  16 

Nassess  -  ”UJ/draw  From  Social  Contact 

Do  B:Relate_l 

Return 

Endcase 

Release  Xasslopt 


Enddo 


****  RELATE.l.PRG  •**»*•»»••••*•*•»»••••**•*••*•**•*•**•• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  20  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  related  factors  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  comfort  alteration  in:  pain. 

*  Input  Files  Used:  Relate_l.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Assess_l.Prg 

*  Routine  Called:  Goal_l.Prg 

*  Modification  Date:  1  February  1986 

* 

*  —  Screen  Input  Program  For  Relate.l  -- 

* 

Da  Setup 
Public  Xrellopt 

Do  While  .T. 

*  —  Screen  Display  A: Relate_l .Scr  — 

Set  Color  To  W+/B.UH-/B 
Clear 

??  Flash+”S .A: Relate_l .Scr/” 

Set  Color  To  U+/B,U)+/B 
Xrellopt  -  2 
Da  Headings 

0  22,67  Get  Xrellopt  Piet  ”9”  Range  1,7 
Read 

*  —  Previous  assessment  is  related  to  some  cause  — 

Do  Case 

Case  Xrellopt  -  1 

Nrelate  -  ’’Altered  Sensation” 

Do  B:Goal_l 
Return 

Case  Xrellopt  -  2 

Nrelate  “  ’’Disease  /  Condition” 

Do  B:Gaal_l 
Return 

Case  Xrellopt  -  3 

Nrelate  ■  ’’Emotional  State” 


Da  B:Goal_l 
Return 

Case  Xrellopt  -  4 
0  17, 1H  Get  Reloth; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXX 
Read 

Nrelate  -  Relath 
Do  B:Goal_l 
Return 

Case  Xrellopt  -  5 

Nrelate  -  "Surgical  Procedure" 

Do  B:Gaal_l 
Return 

Case  Xrellopt  -  S 
Nrelate  “  "Trauma” 

Do  B:Goal_l 
Return 

Case  Xrellopt  -  7 

NrelatB  -  "Treatment  Regime” 

Do  B:Gaal_l 
Return 

Endcase 

Release  Xrellopt 
Enddo 


280 


**•*  GQAL.l.PRG  *******»******»•*»•***»***»***»*•****•**• 

*  Author :  Gary  R.  Harmeyer  LCDR  NIC  USN 

*  Date.-  SO  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Qf  New  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  patient  goal  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  comfort  alteration  in:  pain. 

*  Input  Files  Used:  Goal_l.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Relate_l.Prg 

*  Routine  Called:  NorderlA  or  NorderlB.Prg 

*  Modification  Date:  3  February  198G 

» 

*  --  Screen  Input  Program  For  Goal_l  — 

* 

Do  Setup 
Public  Xgoalopt 

Do  While  .T. 

*  —  Screen  Display  A:Gaal_l.Scr  — 

Set  Color  To  UI+/B.UI+/B 
Clear 

??  Flash* ”S . A : Goal_l . Scr/ ” 

Set  Color  To  W+/B ,  UJ+/B 
Xgoalopt  -  5 
Do  Headings 

0  55,67  Get  Xgoalopt  Piet  "9”  Range  1,5 
Read 

*  —  Allows  nurse  to  select  specific  goal  attainable 

*  —  by  this  patient  — 

Do  Case 

Case  Xgoalopt  -  1 

Ngoal  •  ’’Communicates  Pain  Free” 

Do  B:NorderlA 
Return 

Case  Xgoalopt  -  5 

Ngoal  -  ’’Communicates  Experiences  Less  Pain” 

Do  B:NorderlA 
Return 


Case  Xgaalopt  -  3 

Ngoal  -  ’’Communicates  Experience  Tolerable  Pain 

Da  B-.NorderlA 

Return 

Case  Xgoalopt  -  4 

Ngoal  -  ’’Demos  Skil ls/Knouledge  To  Achieve  Goal 

Da  B.-NorderlB 

Return 

Case  Xgoalopt  »  5 
(3  17,34  Get  Goaoth; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX” 

Read 

Ngoal  -  Goaoth 
Do  B:NarderlA 
Return 

Endcase 

Release  Xgaalopt 


Enddo 


****  N0RDER1A . PRG  **»*«***»•******»•**********»•*****»*** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  20  December  1905 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

»  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  far  a  pa- 

*  tient  whose  goal  is  communicates 

*  experiences  less/talerable  pain 

*  or  is  pain  free. 

*  Input  Files  Used:  NorderlA . Scr ,  Time,  Emosup,  Teach 

*  and  Pracfile.Prg 

*  Output  Files  Used:  Orders. Dbf  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_l.Prg 

*  Routine  Called:  None 

m  Modification  Date:  3  February  1906 

* 

*  —  Screen  Input  Program  For  NorderlA  — 

* 

Do  Setup 

Public  Xnardlaopt 
Do  While  .T. 

*  —  Screen  Display  A: NorderlA . Scr  — 

Set  Color  To  W+/B,W+/B 
Clear 

??  Flash* "S .A: NorderlA . Scr/ ” 

Set  Color  To  W+/B.W+/B 
Xnardlaopt  -  10 
Da  Headings 

0  22,66  Get  Xnordlaopt  Piet  ”99”  Range  1,10 
Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  —  Orders. Dbf  files  — 

Do  Case 

Case  Xnordlaopt  -  1 

harder  "  ’’Assess  Pain  Factors” 

Do  B:Time 
Da  Replaord 
Do  Repnrord 
Return 


Case  Xnordlaopt  -  2 

Morder  -  ’’Assess/Evaluate  Pain” 

□a  B:Time 
Oa  Replaord 
Da  Repnrard 
Return 

Case  Xnordlaopt  -  3 

Morder  -  "Encaur  To  Use  Coping  Skill 

□a  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlaopt  -  4 

Harder  -  "Explain  Proc  &  Tests” 

Do  B:Time 
Da  Replaord 
Do  Repnrord 
Return 

Case  Xnordlaopt  ”  5 
0  10,10  Get  Drdoth; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Morder  -  Qrdoth 
Da  B:Time 
Do  Replaord 
Da  Repnrord 
Return 

Case  Xnordlaopt  -  6 

Morder  ■  "Offer  PRN  Medications” 

Da  B:Time 
Do  Replaord 
Do  Repnrard 
Return 

Case  Xnordlaopt  “  7 

Morder  -  "Provide  Emotional  Support" 

Do  B:Emasup 

Do  Replaord 

Do  Repnrard 

Return 

Case  Xnordlaopt  “  0 

Morder  -  "Schedule  Quiet  Times” 

Do  B:Time 
Do  Replaord 


Do  Repnrord 
Return 

Case  Xnordlaopt  “  9 

florder  -  ’’Teach  Alt  Coping  Strategies 

Do  B: Teach 

Do  Replaord 

Da  Repnrord 

Return 

Case  Xnordlaopt  -  10 

Harder  ■  ’’Util  Diversional  Activities 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Endcase 

Release  Xnordlaopt 


Enddo 


*****  N0RDER1B  .  PRG  *************************************** 

*  Author:  Gary  R.  Hormeyer  LCOR  NC  DSN 

*  Date:  SO  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a  pa- 

*  tient  whose  goal  is  demonstrates 

*  skills  and  knowledge  to  achieve 

*  goals. 

*  Input  Files  Used:  NorderlB . Scr ,  Teach  &  Procfile.Prg 

*  Output  Files  Used:  Orders. Dbf  and  Ncaredb.Dbf 

*  Calling  Routine.-  Goal_l.Prg 

*  Routine  Called:  None 

*  Modification  Date:  1  February  1986 

* 

*  --  Screen  Input  Program  For  NorderlB  — 

* 

Da  Setup 

Public  Xnordlbopt 
Do  While  .T. 

*  --  Screen  Display  A : NorderlB . Scr  -- 

Set  Color  To  UJ+/B,W+/B 
Clear 

??  Flash+”S . A : NorderlB . Scr/ ” 

5et  Color  To  U)+/B,U)+/B 
Xnordlbopt  -  1 
Do  Headings 

@  2S.67  Get  Xnordlbopt  Piet  ”9”  RangB  1,5 
Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  --  Orders. Dbf  files  -- 

Da  Case 

Case  Xnordlbopt  “  1 

Marder  ■  "Teach:  Deep  Breathing  Exer” 

Do  B: Teach 
Da  Replaord 
Do  Repnrord 
Return 

Case  Xnordlbopt  “  S 

Harder  *  "Teach:  Prog/sive  Relax  Exer” 


harder  -  "Teach:  Deep  Breathing  Exer” 

□a  B: Teach 

Do  Replaord 

Do  Repnrard 

Return 

Case  Xnordlbopt  “  S 

harder  ■*  "Teach:  Prog/sive  Relax  Exer 

Do  B: Teach 

Da  RBplaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  •  3 

florder  -  "Teach:  Relaxation  Response” 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  *  4 

harder  “  "Teach:  Diversianal  Activity 

Do  B: Teach 

Da  Replaord 

Do  Repnrord 

Return 

Case  Xnordlbopt  -  5 
@  10,38  Get  Qrdath; 

Piet  ”! XXXXXXXXXXXXXXXXXXXXXXXXX ” 
Read 

harder  -  Qrdath 
Da  B: Teach 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnordlbopt 


Enddo 
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***  TEACH. PRG  *****♦»*****•****•*»************«•«•********* 

Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

Date:  23  December  1385 

Screen  Generated  By:  The  Software  Bottling  Company 

Of  New  York,  cl3B5 

Purpose:  Provides  a  menu  to  select  teaching 

requirements  of  the  patient . 

Input  Files  Used:  Teach. Scr  and  Procfile.Prg 

Output  Files  Used:  None 

Calling  Routine:  NorderlA,  NarderlB,  Narder2C,  and 

arderBE .Prg 

Routine  Called:  None 

Modification  Date:  3  February  1386 

—  Screen  Input  Program  For  Teach  — 

Do  Setup 

Public  Xteachopt 
Xteachopt  -  Spaced] 

Do  While  .T. 

*  —  Screen  Display  A: Teach. Scr  — 

Set  Color  To  W+/B , W+/B 
Clear 

??  Flash+"S. A: Teach. Scr/” 

Set  Color  To  W+/B,  W+/B 
0  13,54  Get  Xteachopt  Piet  "!” 

Read 

*  —  Ualidate  response  -- 

Do  While  .Not.  CXteachapt  -*’A”  .Or.  Xteachopt  -”B”  .Or.; 
Xteachopt  •  ”C”  .Or.  Xteachopt-”D” ] 

0  13,53  Clear 

Store  ’  ’  To  Xteachopt 

0  24,0  Say  "Re-Enter  Letter  A,  B,  C,  or  D” 

0  13,54  Get  Xteachopt  Piet  ”!” 

Read 

Enddo 

*  --  Determine  teaching  requirements  by  evaluating 

*  —  option  selected  — 

Da  Case 

Case  Xteachopt  -  ”A” 

Emoteach  -  "Group  Teaching” 


Passdata  -  ”Q76  1” 

Ptpoint  “  2 
Return 

Case  Xteachopt  -  ”B” 

Emoteach  -  ”Pre-op  Teaching" 
Passdata  -  ”Q77  1” 

Ptpoint  -  4 
Tadayanly  -  ”T" 

Return 

Case  Xteachopt  -  ”C” 

*  —  Return  to  previous  screen 
Return 

Case  Xteachopt  “  "D” 

Emoteach  -  "Structured  Teaching 
Passdata  -  "078  1” 

Ptpoint  -  4 
Return 

Endcase 

Release  Xteachopt 


Enddo 


*  Input  Files  Used: 

*  Output  Files  UsBd : 

*  Calling  Routine: 


**•*  EMOSUP.PRG  ****************************************** 

*  Author:  Gary  R.Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clS85 

*  Purpose:  Provides  a  menu  to  select  emotional 

*  support  requirements  of  the 

*  patient. 

*  Input  Files  Used:  Emasup.Scr  and  Procfile.Prg 

*  Output  Files  UsBd:  Nona 

*  Calling  Routine:  NarderlA,  Narder4C,  Narder4D, 

*  and  Norder4E.Prg 

*  Routine  Called:  None 

*  Modification  Date:  25  January  198S 

* 

*  —  Screen  Input  Program  For  Emosup  — 

• 

Da  Setup 
Public  Xesupopt 
Xesupopt  -  Spaced] 

Do  While  .T. 

*  —  Screen  Display  A: Emasup.Scr  — 

Set  Color  To  W+/B , W+/B 
Clear 

??  Flash-^’S.  A:  Emasup.Scr/” 

Set  Color  To  W+/B,W+/B 
0  21,54  Get  Xesupopt  Piet  ”!” 

Read 

*  --  Ualidate  response  -- 

Do  While  .Not.  CXesupopt  -’’A”  .Or.  Xesupopt  -”B”  .Or.; 
Xesupopt  -  "C”  .Or.  Xesupopt- "D” ] 

0  21,53  Clear 
Stare  ’  ’  To  Xesupopt 

0  24,0  Say  ’’Re-Enter  Letter  A,  B,  C,  or  D” 

0  21,54  Get  Xesupopt  Piet  ”!” 

Read 

Endda 

*  —  Determine  emotional  support  requirements  by  eval- 

*  uating  the  option  selected  — 


Do  CasB 


Case  Xesupopt  ”  ”A” 

Emoteach  "  ”Pt/Family  Support” 
Passdata  -  ”Q79  1" 

Emopaint  -  4 
Return 

Case  Xesupopt  “  ”B” 

Emoteach  -  ’’tlodify  Lifestyle” 
Passdata  -  ”QBO  1” 

Emapaint  -  4 
Return 

Case  Xesupopt  "  ”C” 

Emoteach  -  ’’Sensory  Deprivation 
Passdata  -  "QB1  1” 

Emopoint  -  B 
Return 

Case  Xesupopt  •  ”D” 

*  —  Return  to  previous  screen 
Return 

Endcase 

Release  Xesupopt 


Endda 


•••  ASSESS_2 . PRG  **»****•*****••*•*••*••*****•**•*•***•*■ 

Author:  Gory  R.  Harmeyer  LCDR  NC  USN 

Date:  23  December  1385 

Screen  Generated  By:  The  Software  Bottling  Company 

Of  New  York,  cl385 

Purpose:  Provides  a  menu  for  the  nurse  to 

select  nursing  assessment  for  a 
patient  with  a  nursing  diagnosis 
of  communication  impairment: 
verbal . 

Input  Files  Used:  Assess_2.Scr  and  Pracfile.Prg 

Output  Files  Used:  None 

Calling  Routine:  N_Diag.Prg 

Routine  Called:  Relate_5.Prg 

Modification  Date:  3  February  1SB6 

—  Screen  Input  Program  For  Assess_2  — 

Do  Setup 
Public  XassSopt 

Do  While  .T. 

*  —  Screen  Display  A : Assess_2 . Scr  — 

Set  Color  Ta  W+/B , W+/B 
Clear 

??  Flash* ”S . A : Assess_2 . Scr/ ” 

Set  Color  To  W+/B.U+/B 
Xass2apt  -  01 
Do  Headings 

0  22,67  Get  Xass2apt  Piet  ”33”  Range  1,13 
Read 

*  --  Allows  nurse  to  document  assessment  of  the 

*  —  patient  — 

Do  Case 

Case  Xass2apt  -  1 
Nassess  “  "Anxiety” 

Do  B:Relate_2 
Return 

Case  Xass2opt  -  2 

Nassess  ”  "Disorientation” 

Do  B:Relate_2 
Return 


Case  Xass2opt  -  3 
Nassess  -  ’’Fear” 

Do  B:Relate_2 
Return 

Case  Xass2opt  -  4 

Nassess  -  ’’Frustration” 

Da  B:Relate_2 
Return 

Case  Xass2opt  -  5 
0  17,24  Get  Assoth; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 

Read 

Nassess  -  Assoth 
Da  B:Relate_2 
Return 

Case  Xass2opt  -  6 

Nassess  -  ’’Inability  to  Hear” 

Do  B:Relate_2 
Return 

Case  Xass2opt  -  7 

Nassess  -  ’’Inability  to  Speak” 

Da  B:Relate_2 
Return 

Case  Xass2apt  -  8 

Nassess  -  "Incomprehensible  Speech” 

Do  B:Relate_2 

Return 

Case  Xass2opt  -  9 

Nassess  -  ’’Refusal  to  Speak" 

Da  B:Relate_2 
Return 

Case  Xass2opt  -  10 
Nassess  -  "Slurring” 

Da  B:Relate_2 
Return 

Case  Xass2opt  -  11 

Nassess  ”  ’’Stuttering” 

Do  B:Relate_2 
Return 

Case  Xass2opt  -  12 

Nassess  *  ’’Tearfulness” 
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,  •  *  *.  .  *  ,  *  * 


■.\VjwV%\v* -w 


RELATE_2 . PRG  **************************************** 

Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

Date:  23  December  1985 

Screen  Generated  By:  The  Software  Bottling  Company 

□f  New  York,  cl985 

Purpose:  Provides  a  menu  For  the  nurse  to 

select  related  factors  for  a  pa¬ 
tient  with  a  nursing  diagnosis  of 
communication,  impaired:  verbal. 
Input  Files  Used:  RslatB_2.Scr  and  ProcfilB.Prg 

Output  Files  Used:  None 

Calling  Routine:  Assess_2.Prg 

Routine  Called:  Goal_2.Prg 

Modification  Date:  3  February  198G 

—  Screen  Input  Program  Far  Relate_2  — 

Do  Setup 
Public  Xrel2opt 

Do  While  .T. 

*  —  Screen  Display  A : Relate_2 . Scr  — 

Set  Color  Ta  U+/B , W+/B 
Clear 

??  Flash-*- ”S  .  A :  Relate_2  .  Scr  /  " 

Set  Color  To  U+/B ,  UI+/B 
Xrel2opt  -  01 
Da  Headings 

@  22 , G7  Get  XrelEopt  Piet  ”38”  Range  1,10 
Read 

*  --  Previous  assessment  is  related  to  some  cause  -- 
Da  Case 

Case  Xrel2apt  -  1 

Nrelate  *  ’’Anatomical  Impairment” 

Da  B:Gaal_2 
Return 

Case  XrelSopt  -  2 

NrelatB  “  ’’Cultural  Difference” 

Do  B:Gaal_2 
Return 

Case  Xrel2opt  -  3 

Nrelate  -  ’’Developmental  Age” 


Do  B:Gool_2 
Return 

Cose  Xrel2opt  -  4 

Nrelote  -  "Disease  Process” 

Da  B:Goq1_2 
Return 

Case  Xrel2opt  -  5 
0  17,14  Get  RBlath; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXX 
Read 

Nrelate  -  Reloth 
Do  B:Goal_2 
Return 

Case  Xrel2apt  -  G 

Nrelate  “  "Foreign  Language” 

Do  B:Gaal_2 
Return 

Case  Xrel2opt  -  7 

Nrelate  ■  "Mental  Capacity” 

Do  B:Goal_2 
Return 

Case  Xrel2apt  -  0 

Nrelate  -  "Sedation” 

Do  B:Gaal_2 
Return 

Case  Xrel2apt  -  3 

Nrelate  “  "Surgical  Procedure” 

Da  B:Goal_2 
Return 

Case  Xrel2opt  -  10 

Nrelate  “  "Treatment  Regime” 

Do  B:Goal_2 
Return 

Endcase 

Release  Xrel2opt 


Enddo 


***•  GQAL_2 . PRG  ****** 

*  Author: 

*  Date: 

*  Screen  Generated  By 

* 

*  Purpose: 


*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  fladif ication  Date: 


Gary  R .  Harmeyer  LCDR  NC  USN 
23  December  1SG5 
The  Software  Bottling  Company 
Of  New  York,  clSSS 
Provides  a  menu  for  the  nurse  to 
select  a  patient  goal  for  a  pa¬ 
tient  with  a  nursing  diagnosis  of 
communication,  impaired:  verbal. 
Goal_2.Scr  and  Procfile.Prg 
None 

Relate_2 . Prg 

Narder2A,  Norder2B  or  Norder2C.Prg 
3  February  1S8G 


*  —  Screen  Input  Program  Far  Goal_2  — 

• 

Do  Setup 
Public  XgoaBopt 

Da  While  ,T. 

*  --  Screen  Display  A:Gaai_2.Scr  — 

Set  Color  To  W+/B,W+/B 
Clear 

??  Flash-^S. A :Goal_2.Scr/” 

Set  Color  To  W+/B.W+/B 
Xgoa2opt  -  1 
Do  Headings 

0  22,67  Get  Xgaa2opt  Piet  "9”  Range  1,7 
Read 

*  —  Allows  nurse  to  select  specific  goal  attainable 

*  —  by  this  patient  — 

Do  Case 

Case  Xgoa2apt  -  1 

Ngoal  ■  ’’Communicates  Needs  Through  Words” 

Do  B:Norder2A 
Return 

Case  Xgoa2apt  -  2 

Ngoal  “  ’’Comm  Needs  Through  Mechanical  Tools” 

Da  B:Norder2A 
Return 


Case  Xgoa2opt  -  3 

Ngoal  -  "Demos  Skills  to  Achieve  Goals” 

Do  B:Narder2C 
Return 

Case  Xgoa2opt  -  4 
(3  19,21  Get  Goaoth; 

Piet  "! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' 

Read 

Ngoal  -  Goaoth 
Do  B:NorderBA 
Return 

Case  Xgoa2opt  -  5 

Ngoal  «  "Reports  Less  Anxiety” 

Da  B:NorderBB 
Return 

Case  Xgoa2opt  “  G 

Ngoal  •  "Reports  Less  Fear" 

Do  B:Norder2B 
Return 

Case  Xgaa2apt  “  7 

Ngoal  -  "Reports  Less  Stress” 

Do  B:NorderBB 
Return 

Endcase 

Release  Xgaa2apt 


Enddo 


NQR0ER2A . PRG  **** 
Author: 

Date : 

Screen  Generated  By : 
Purpose: 


Input  Files  Used: 

Output  Files  Used: 
Calling  Routine: 
Routine  Called: 
nodification  Date: 


Gary  R .  Harmeyer  LCDR  NC  USN 
23  December  1985 
The  Software  Bottling  Company 
Of  New  York,  C19B5 
Provides  a  menu  far  the  nurse  to 
select  a  nursing  order  for  a  pa¬ 
tient  whose  goal  is  communicates 
needs  through  use  of  words  or 
mechanical  tools. 

Norder^A . 5cr ,  Time,  Emosup  and 
Proc. lie. Prg 
Orders  and  Ncaredb . Dbf 
Gaal_2 . Prg 
None 

3  February  1986 


*  --  Screen  Input  Program  Far  Ncrder2A  -- 

• 

Do  Setup 

Public  XnordEaapt 


Da  Uhi le  . T  . 


*  —  Screen  Display  A : Norder2A . Scr  -- 

Set  Color  To  U+/B.U+/B 
Clear 

??  Flash-*- "S  .A:  Norder2A  .Scr/” 

Set  Color  To  U+/B.U+/B 
XnordHaopt  -  01 
Da  Headings 

0  22,67  Get  XnordEaapt  Piet  "83”  Range  1,10 
Read 


*  --  Nursing  orders  are  determined  by  evaluating  the 

*  —  case  statement,  then  place  data  into  Ncaredb  and 

*  --  Orders. Dbf  files  — 


Do  Case 


Case  Xnord2aopt  -  1 

border  “  "Apprise  Others  of  Comm  Prob" 

Da  B:Time 

Do  Replaord 

Do  Reonrord 

Return 
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Case  XnordSaapt  -  2 

Harder  -  ‘’Provide  Emotional  Support” 

Do  B:Emasup 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord2aopt  ■  3 

Harder  -  “Provide  Paper  and  Pencil” 

Do  B:Time 
Do  Replaord 
Da  Repnrord 
Return 

Case  Xnard2aapt  “  4 

Harder  -  “Provide  Spelling  Board” 

Do  B:Time 
Do  Replaord 
Da  Repnrord 
Return 

Case  Xnard2aapt  -  5 
0  18,11  Get  Ordath; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX ” 
Read 

Harder  -  Ordath 
Da  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord2aopt  “  B 

Horder  -  “Prav  Translated  Phase  Chart’ 

Do  B:Time 

Do  Replaord 

Da  Repnrord 

Return 

Case  Xnord2aopt  “  7 

Horder  -  "Provide  Translator” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord2aopt  -  B 

Harder  -  ’’Simple  Questions  ui/  Y/N  Ans’ 
Da  B:Time 
Do  Replaord 


Do  Repnrord 
Return 


REPRODUCED  AT  GOVERNMENT  EXPENSE 


******  N0RDER2B  .  PRG  *•*<•*******•*•***************•********** 

*  Author :  Gary  R .  Harmeyer  LCOR  NC  USN 

*  Date:  23  December  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  OF  New  York,  clSBS 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  a  nursing  order  Far  a 

*  patient  whose  goal  is  reports  de- 

*  creased  level  of  stress,  anxiety 

*  or  fear. 

*  Input  Files  Used:  Norder2B . Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_2.Prg 

*  Routine  Called:  None 

*  Modification  Date:  5  February  1986 

* 

*  --  Screen  Input  Program  For  Norder2B  -- 

* 

Do  Setup 

Public  Xnord2bopt 
Do  While  .T. 

*  —  Screen  Display  A: Norder2B . Scr  — 

Set  Color  To  W+/B , W+/B 
Clear 

??  Flash-*-  ”S  .  A :  Norder2B  .  Scr/  ” 

Set  Color  To  W+/B ,  UM-/B 
Xnord2bopt  -  01 
Do  Headings 

0  22,66  Get  Xnord2bapt  Piet  "99”  Range  1,10 
Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —  case  statement,  then  place  data  into  Ncaredb  and 

*  —  Orders. DbF  Files  — 

Do  Case 

Case  XnordBbopt  -  1 

Harder  -  "Encour  Pt  To  Speak  Slowly” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordBbopt  -  2 

Harder  “  "Encau  To  Util  Cope  Strategy" 
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Do  B:Time 
Do  Replaard 
Do  Repnrord 
Return 

Case  Xnord2bopt  -  3 

Morder  ■  "Explain  Prac  &  Elicit  Ques” 

Do  B:Time 

Do  Replaord 

Da  RBpnrord 

Return 

Case  Xnard2bapt  -  4 

Morder  “  "Provide  Spelling  Board” 

Do  B : T 1 me 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordSbopt  -  5 
0  18,10  Get  Qrdoth; 

Plot  " ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Morder  -  Ordoth 
Do  B:Time 
Do  Replaard 
Do  Repnrord 
Return 

Case  XnordSbapt  “  6 

Morder  -  "Prav  Translated  Phase  Chart" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnard2bopt  -  7 

Morder  -  "Provide  Translator" 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnardBbopt  -  0 

Morder  -  "Simple  Questions  uj/  Y/N  Ans” 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 
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Cose  Xnord2bopt  -  3 

Harder  -  "Use  Sign  Language” 

□a  B:Time 
Da  Replaard 
Do  Repnrard 
Return 

Case  XnardBbapt  -  10 

Harder  -  ’’Use  Establishd  Camm  Far  ADL” 
Da  Replaard 
Da  Repnrard 
Return 

Endcase 

Release  Xnord2bopt 
Endda 


Author : 

□ate : 

Screen  Generated  By : 
Purpose : 


Input  FiIbs  UsBd : 
Output  Files  Used: 
Calling  Routine: 
Routine  Called: 
Modification  Date: 


Gary  R .  Harmeyer  LCDR  NC  USN 
S3  December  1905 
The  Software  Bottling  Company 
Of  New  York,  cl985 
Provides  a  menu  for  the  nurse  to 
select  a  nursing  order  for  a  pa¬ 
tient  whose  goal  is  demonstrates 
skills  to  achieve  goals. 

NordBrSC . Scr ,  Teach  &  PracFile.Prg 
Orders  and  Ncaredb.Obf 
Goal_S . Prg 
None 

1  February  1906 


—  Screen  Input  Program  For  NorderSC  -- 


Do  Setup 

Public  XnordScapt 


Do  While  .T. 


*  —  Screen  Display  A: NorderSC .Scr  — 

Set  Color  To  W+/B, W+/B 
Clear 

??  Flash-*- ”S.  A:  NorderSC. Scr/*' 

Set  Color  To  W+/B , w-*-/B 
XnordScopt  -  1 
Do  Headings 

0  SS.G7  Get  XnordScopt  Piet  ”9”  Range  1,9 
Read 


*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —  case  statement,  then  place  data  into  Ncaredb  and 

*  —  Orders. Dbf  files  -- 


Do  Case 


Case  XnordScopt  -  1 

Harder  -  "Teach:  Blink  lx  No.  Sx  Yes” 


Da  B: Teach 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordScapt  -  S 
Harder  -  "Teach  To 
Do  B: Teach 


Squeeze  Hand  4  Y/N" 


r.  ,-.v. V-V-V 
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Do  Replaord 
Do  Repnrord 
Return 

Cose  Xnord2copt  -  3 

harder  -  "Teach  Use  DF  hech  Device” 

Da  B: Teach 
Do  Replaord 
Da  RBpnrord 
Return 

Case  Xnord2copt  -  4 

harder  -  "Apprise  Others  af  Comm  Prob” 

Do  B : Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord2capt  -  5 
0  18,30  Get  Ordoth; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

harder  -  Ordoth 
Do  B: Teach 
Do  Replaord 
Da  Repnrord 
Return 

Case  Xnard2copt  -  6 

harder  -  "Teach:  Deep  Breathing  Exer” 

Do  B: Teach 

Do  Replaord 

Da  Repnrord 

Return 

Case  Xnord2copt  “  7 

harder  -  "Teach:  Diversional  Activity" 

Da  B: Teach 

Da  Replaord 

Do  Repnrord 

Return 

Case  Xnard2copt  -  8 

border  -  "Teach:  Prog/3ive  Relaxation” 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 


i  .S  .«% , 

r.'V 

■V 
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i 


i 


i 

♦ 

I 

♦ 


Case  XnordScapt  -  9 

florder  -  "Teach:  Relaxation  Response"  ' 

□a  B:Time  I 

Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnord2copt 
Enddo 
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•*«•*  ASSESS.3.PRG  . 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  S3  December  19B5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9S5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  nursing  assessment  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  impaired  physical  mobility. 

*  Input  Files  UsBd:  Assess_3.Scr  and  PracfilB.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  N_Diag.Prg 

*  Routine  Called:  Relate_3.Prg 

*  nodi ficat- ion  Date;  d  February  1306 

*  —  Screen  Input  Program  Far  Assess_3  — 

Da  Setup 
Public  Xassdopt 

Do  While  .T. 

•  —  Screen  Display  A : Assess_3 . Scr  — 

Set  Color  To  W+/B .  UK/B 
Clear 

??  Flash-*- ”S  .  A:  Assess_3  .Scr/” 

Set  Color  To  W-/B , W+/B 
Xass3opt  -  01 
Da  Headings 

0  22,66  Get  XassBopt  Piet  "99”  Range  1,11 
Read 

•  —  Allows  nurse  to  document  assessment  of  the 

•  —  patient  — 

Do  Case 

Case  Xass3opt  -  1 

Nassess  “  "Confinement  Imposed” 

Do  B:Relate_3 
Return 

Case  Xass3opt  -  2 

Nassess  “  "Fatiques  Easily" 

Do  B:Relate_3 
Return 
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Case  Xass3opt  -  3 

Nassess  -  "Gait  Impairment” 

Da  B:Relate_3 
Return 

Case  Xass3opt  -  4 

Nassess  -  ’’Impaired  Coordination” 

Do  B:Relote_3 
Return 

Case  Xass3opt  -  5 

Nassess  -  ’’Inability  to  Ambulate" 

Do  B:Relate_3 
Return 

Case  XassBopt  -  6 
0  18,13  Get  Assoth; 

Piet  ’’!  XXXXXXXXXXXXXXXXXXXXXXXXXX’ 
Read 

Nassess  “  Assoth 
Do  B:Relate_3 
Return 

Case  Xass3opt  -  7 

Nassess  -  "Inability  to  Transfer" 

Do  B:Relate_3 
Return 

Case  XassBopt  -  8 

Nassess  -  "Inability  to  Turn” 

Do  B:Relate_3 
Return 

Case  XassBopt  -  8 

Nassess  “  ’’Limited  Range  OF  notion” 

Do  B:Relate_3 

Return 

Case  Xass3apt  -  10 

Nassess  ■  ’’Reluctant  To  Hove” 

Do  B:Relate_3 
Return 

Case  XassBopt  -  11 

Nassess  -  ’’Use  Of  Assistive  Devices’ 

Do  B:Relate_3 

Return 


EndcasB 

Release  XassBopt 


***  RELATE.3.PRG  ******••*-******•••**•*•**••**•*•*••-•* 

Author:  Gory  R.  Hormeyer  LCDR  NC  USN 

Date:  23  December  1985 

Screen  Generated  By:  The  Software  Bottling  Company 

Of  New  York,  cl9B5 

Purpose:  Provides  a  menu  for  the  nurse  to 

select  related  factors  for  a 
patient  with  a  nursing  diagnosis 
of  impaired  physical  mobility. 
Input  Files  Used:  Relate_3.Scr  and  Pracfile.Prg 

Output  Files  Used:  None 

Calling  Routine:  Assess_3.Prg 

Routine  Called:  Goal_3.Prg 

nadif icat ion  Date:  3  February  190S 

--  Screen  Input  Program  For  Relate_3  -- 

Do  Setup 
Public  Xrel3opt 

Do  While  .T. 

*  —  Screen  Display  A : Relate. 3 . Scr  — 

Set  Color  To  W+/B.U+/B 
Clear 

??  Flash+"S. A: Relate_3. Scr/” 

Set  Color  To  W+/B , W+/B 
XrelSopt  -  01 
Da  Headings 

0  22,67  Get  Xrel3apt  Piet  "9"  Range  1,6 
Read 

*  —  Previous  assessment  is  related  to  some  cause  — 

Da  Case 

Case  Xrel3opt  -  1 

Nrelate  “  "Decrease  Act  Tolerance" 

Do  B:Goal_3 
Return 

Case  Xrel3opt  -  2 

Nrelate  "  "Musculoskeletal  Function” 

Do  B:Gaal_3 
Return 

Case  Xrel3opt  -  3 

Nrelate  -  "Neuromuscular  Function” 


Do  B : Goq1_3 
Return 

Case  XrelBopt  -  4 

Nrelate  -  ’’Pain  /  Discomfort” 

Do  B:Gaal_3 
Return 

Case  Xrel3opt  -  5 

NrelatB  -  ’’Treatment  RBgimB” 

Da  B.-Goal_3 
Return 

Case  Xrel3opt  -  6 
(3  18,36  Get  Reloth; 

Piet  ”! XXXXXXXXXXXXXXXXXXXXXXXX 
Read 

Nrelate  -  Reloth 
Do  B:Goal_3 
Return 

Endcase 

Release  'Xrel3apt 


Endda 


***•  G0AL._3.PRG  ***************************************** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  13E5 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBS 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  a  patient  goal  For  a 

*  patient  with  a  nursing  diagnosis 

*  of  impaired  physical  mobility. 

*  Input  Files  Used:  Goal_3.Scr  and  Drprac.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Relate_3.Prg 

*  Routine  Called:  Norder3A,  Norder3B,  Norder3C, 

*  Narder3D  or  NorderSE.Prg 

*  flodification  Date:  3  February  1S86 

* 

*  —  Screen  Input  Program  For  Gaal_3  -- 

» 

Do  Setup 
Public  Xgaa3apt 

Do  Ulhile  .T. 

*  —  Screen  Display  A:Goal_3.Scr  — 

Set  Color  To  W+/B,W+/B 
Clear 

??  Flash+ "S . A : Goal_3 . Scr/ ” 

Set  Color  To  W+/B.W+/B 
Xgaa3opt  -  01 
Do  Headings 

G  22,66  Get  Xgoa3opt  Piet  ”SS”  Range  1,11 
Read 

*  —  Allows  nurse  to  select  specific  goal  attainable 

*  —  by  this  patient  — 

Do  Case 

Case  Xgaa3opt  “  1 

Ngoal  -  ’’Able  To  Transfer  Independently" 

Do  B:Norder3D 
Return 

Case  Xgoa3opt  “  2 

Ngoal  *  "Able  To  Transfer  With  Assistance” 

Do  B:Norder3D 
Return 


Cose  Xgoa3opt  -  3 

Ngoal  -  ’’Demos  Skills  to  Achieve  Goals” 

Do  B:Norder3E 
Return 

Case  Xgaa3apt  -  4 

Ngoal  -  ’’Increase  Range  Of  notion  CROMD” 

Do  B:Norder3A 
Return 

Case  Xgoa3apt  -  5 

Ngoal  -  ’’Haint  Effective  Breathing  Pattern" 

Do  B:Norder3A 
Return 

Case  Xgoa3opt  •  B 
@  10,21  Get  Goaoth; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX” 

Read 

Ngoal  -  Goaoth 
Do  B:Norder3B 
Return 

Case  Xgoa3apt  -  7 

Ngoal  -  "Naintains  Full  Range  Df  notion  CRDnj” 

Do  B:Norder3A 
Return 

Case  Xgaa3opt  -  0 

Ngoal  -  ’’naintains  Pattern  Of  Elimination” 

Da  B:Norder3C 
Return 

Case  Xgoa3opt  -  9 

Ngoal  -  ’’naintains  Skin  Integrity” 

Do  B:Norder3B 
Return 

Case  Xgaa3apt  ”  10 

Ngoal  “  ”No  Additional  Contractures” 

Da  B:Norder3A 
Return 

Case  XgaaBopt  -  11 

Ngoal  -  "Performs  Activity  Of  Daily  LivingCADLD” 

Do  B:Norder3C 

Return 

Endcase 

Release  Xgoa3opt 
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V/.  .  '  .  -  .  »  .A  .  -  V ^  *1  ->  V  -  V  / 


•***  NQRDER3A . PRG  **** 

*  Author: 

*  Oats: 

*  Screen  Generated  By : 

m 

*  Purpose: 


« 

* 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


Gary  R.  Harmeyer  LCDR  NC  USN 
23  December  1305 
The  Software  Bottling  Company 
□f  New  York,  clS05 
Provides  a  menu  for  the  nurse  to 
select  a  nursing  order  far  a 
patient  whose  goal  is  maintains 
maintains  full  range  of  motion 
CRDflD,  increases  ROM  or  no  added 
contractures . 

NorderBA . Scr ,  Time  and  Drproc.Prg 
Orders  and  Ncaredb . Dbf 
Gaal_3 . Prg 
None 

S  February  1306 


*  —  Screen  Input  Program  Far  Norder3A  -- 

* 

Do  Setup 

Public  XnordSaapt 


Do  While  .1. 


*  —  Screen  Display  A : NorderSA . Scr  — 

Set  Color  Ta  W+/8,W+/B 
Clear 

??  Flash* ”S . A : Narder3A . Scr/ ” 

Set  Color  Ta  W+/B,UJ+/B 
Xnard3aapt  -  1 
Do  Headings 

0  22,66  Get  Xnord3aapt  Piet  ”3”  RangB  1,10 
Read 


—  Nursing  orders  are  determined  by  evaluating  the 

case  statement,  then  place  data  into  Ncaredb  and 
Orders . Dbf  files  -- 


w 


Do  Case 

Case  Xnord3aopt  -  1 

Morder  ■  ’’Active  Range  Of  Motion” 

Do  B:Time 

Do  Replaord 

Da  Repnrord 

Return 
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Case  Xnard3aopt  ”  2 

Harder  -  "Cough  &  Deep  Breath" 

Da  B:Time 
Da  Cough 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3aopt  -  3 

HordBr  -  "Encourage  Independent  ADL” 

Da  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnordBaopt  -  4 

Horder  -  "Gradual  Increase  ADL  Actity 

Do  B:Time 

Do  Replaord 

Da  Repnrord 

Return 

Case  Xnord3aopt  -  5 
0  18, 10  Get  Ordoth; 

Piet  " ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Harder  -  Ordoth 
Do  B.Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard3aopt  -  6 

Horder  *  "Passive  Range  Of  Hotion" 

Do  B:Time 
Do  Range 
Da  Replaord 
Do  Repnrord 
Return 

Case  Xnord3aopt  -  7 

Horder  -  "Positioning" 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordSaopt  -  8 
Horder  -  "Turning” 

Do  B:Time 


Do  Replaord 
Do  Repnrard 
Return 

Case  Xnord3aopt  *  9 

Harder  -  ’’Accom  Pt  Off  Wd  [>15  <30mn] 
Passdata  *  "055  2” 

Ptpaint  -  2 
Do  Replaord 
Do  Repnrard 
Return 

Case  Xnord3aopt  -  10 

(lorder  “  ’’Accompy  Pt  Off  Wd  0  30  min] 
Passdata  -  ”Q55  3” 

Ptpoint  - 
Da  Replaord 
Da  Repnrord 
Return 

Endcase 

Release  Xnard3aapt 


Enddo 


****  NDRDER3B.PRG  **************************************** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  S3  December  19S5 

*  Screen  Generated  By:  The  Software  Buttling  Company 

*  Of  New  York,  C19B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a 

*  patient  whose  goal  is  maintains 

*  maintains  skin  integrity  or 

*  selects  other  for  thB  goal . 

*  Input  Files  Used:  Norder3B . Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

*  Modification  Date:  3  February  1996 

* 

*  --  Screen  Input  Program  For  NorderSB  — 

* 

Da  Setup 

Public  Xnord3bopt 
Do  While  .T. 

*  —  Screen  Display  A : Narder3B . Scr  — 

Set  Color  To  UI+/B ,  W+/B 
Clear 

??  F lash+  "S  .  A :  Narder3B  .  Scr  /  ’* 

Set  Color  To  UI+/B.W+/B 
XnordBbopt  -  01 
Do  Headings 

G  E2 , 66  Get  Xnord3bopt  Piet  ”99”  Range  1,11 
Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  --  Orders. Dbf  files  -- 

Do  Case 

Case  XnordBbopt  -  1 
harder  ■  ’’Ambulate” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordBbopt  -  2 

Harder  *  ’’Assist  To  Select  Diet” 


Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  -  3 

Morder  -  "Encourage  Independent  AOL” 

Da  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  XnardDbopt  -  4 

Harder  •  "Hassage-Promote  Circulation 

Da  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3bopt  -  5 

Harder  -  “Possessions  ui/in  Reach” 

Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  -  G 
0  18,30  Get  Qrdath; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Harder  -  Qrdath 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  “  7 
Harder  -  “Position” 

Do  B:TimB 
Da  Replaord 
Do  Repnrord 
Return 

Case  Xnord3bopt  -  0 

Horder  “  “Protect  Bony  Prominences" 

Da  B:Time 
Do  Replaord 
Do  Repnrord 
Return 


Case  XnardSbapt  -  9 

florder  »  ’’Protect  Pressure  Areas” 

Do  B:Time 

□o  Replaord 

Do  Repnrord 

Return 

Case  Xnord3bapt  -  10 

harder  -  ’’Provide  Safe  Environment 

Do  B:Time 

Da  Replaord 

Da  Repnrord 

Return 

Case  XnordBbopt  -  11 
florder  -  ’’Siderails" 

Do  BrTime 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnord3bapt 


Enddo 


****  N0RDER3C . PRG  **************************************** 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1905 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  a  nursing  order  Far  a 

*  patient  whose  goal  is  maintains 

*  pattern  of  elimination  or  per- 

*  Farms  activities  of  daily  living 

*  CADL3. 

*  Input  Files  Used:  Norder3C . Scr ,  Time  and  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

*  Modification  Date:  4  February  1906 

* 

0  —  Screen  Input  Program  For  Norder3C  -- 

• 

Da  Setup 

Public  Xnard3copt 
Do  While  .T. 

*  —  Screen  Display  A : Narder3C  .Scr  — 

Set  Color  To  U+/B , W+/B 
Clear 

??  Flash-*-  ”S  .  A :  Norder3C  .  Scr  /  ” 

Set  Color  To  W+/B,W+/B 
Xnord3capt  -  1 
Do  Headings 

0  22,67  Get  Xnard3copt  Piet  ”9”  Range  1,0 
Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —  case  statement,  then  place  data  into  Ncaredb  and 

*  --  Orders. Dbf  Files  -- 

Da  Case 

Case  Xnord3copt  -  1 

Morder  -  ’’Ambulate  with  Assistance” 

Do  B:Time 

Do  Case 

Case  CTimeopt  <  5  .Or.  Timeopt  -  413 
*  --  No  precise  Frequency  given 
Passdata  -  ”051  10” 


Ptpoint  “  0 

Case  CTimeopt  >  4  .And.  Timeopt  <  223 

*  X  1 

Passdota  -  ”QS1  11" 

Ptpoint  “  2 

Case  CTimeopt  >  21  .And.  Timeopt  <  253 

*  X  2  or  BID 
Passdata  -  "Q51  12" 

Ptpoint  ”  4 

Case  CTimeopt  >  24  .And.  Timeopt  <  313 

*  —  X  3  or  TID 
Passdata  -  "Q51  13” 

Ptpoint  -  5 

Case  CTimeopt  >  30  .And.  Timeopt  <  343 

*  —  X  4  or  QID 
Passdata  -  "Q51  14” 

Ptpoint  •  8 

Case  CTimeopt  ■  34  .Or.  Timeopt  -  353 

*  —  X  6  or  Q4h 
Passdata  -  "Q51  15" 

Ptpoint  *  12 

Case  CTimeopt  -  36  .Qr.  Timeopt  -  373 

*  —  X  12  or  Q2h 
Passdata  -  "Q51  16” 

Ptpoint  *  24 

Case  CTimeopt  *  38  .Or.  Timeopt  -  393 

*  —  X  24  or  Qlh 
Passdata  -  ”Q5l  17” 

Ptpoint  -  48 

Endcase 

Da  Replaard 
Da  Repnrord 
Return 

Case  Xnord3capt  -  2 

Herder  -  ’’Increase  Independ  Doing  ADL” 

Do  Replaard 
Do  Repnrord 
Return 

Case  Xnord3copt  -  3 

Horder  -  "Plan  For  Continuing  Care” 

Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard3copt  -  4 
tlorder  -  "Position” 

Da  B:Time 


Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord3copt  -  5 
0  10,29  Get  Qrdoth; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX 
Read 

Horder  -  Ordoth 
Do  B:Time 
Da  Replaord 
Do  Repnrord 
Return 

Case  Xnord3copt  -  6 

Morder  -  ’’Range  Of  nation  CROni” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard3capt  -  7 

norder  -  ’’Diet  To  Promote  GI  Function 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordBcapt  -  8 
harder  -  "Turn” 

Do  B:Time 
Do  Replaord 
Da  Repnrord 
Return 

Endcase 

Release  Xnord3copt 


Enddo 


***  N0RDER3D . PRG  **** 
Author: 

Date: 

Screen  Generated  By : 

’  Purpose: 


Input  Files  Used: 
Output  Files  Used: 
Calling  Routine: 
Routine  Called: 
Modification  Date: 


Gary  R .  Harmeyer  LCDR  NC  USN 
23  December  1385 
The  Software  Bottling  Company 
Of  New  York,  clS85 
Provides  a  menu  for  the  nurse  to 
select  a  nursing  order  for  a 
patient  whose  goal  is  able  to 
transfer  independently  or  with 
assistance . 

Narder3D . Scr ,  Time  and  Pracfile.Prg 
Orders  and  Ncaredb.Dbf 
Goal_3 . Prg 
None 

4  February  1386 


--  Screen  Input  Program  For  Norder3D  -- 


Do  Setup 

Public  XnordSdopt 


Do  While  .T. 


*  --  Screen  Display  A : Norder3D . Scr  — 

Set  Color  To  UJ+/B ,  UJ+/B 
Clear 

^  Flash-”S.A  irder3D . Scr/ ” 

Set  Color  To  ui*/B ,  W+/8 
Xnard3dopt  -  1 
□o  Headings 

0  22,67  Get  Xnard3dopt  Piet  ”3”  Range  1,5 
Read 


*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  --  Orders. Dbf  files  -- 


Da  Case 

Case  XnordSdopt  *  1 

harder  *  "Assist  Bed  To  Chair” 

Da  B:Time 

Do  Case 

Case  CTimeopt  <  25  .Or.  Timeopt  -  41D 
*  --  Less  than  x  3  or  TID 
Passdata  -  ”051  1” 

Ptpoint  - 


0 


Case  CTimeapt  >  24  .And.  Timeopt  <  34] 

*  —  X  3  or  less  than  Q4h  Cx  6] 
Passdata  -  ”Q51  7” 

Ptpaint  “  2 

Case  CTimeopt  -  34  .Jr.  Timeopt  -  35] 

*  X  6  or  Q4h 
Passdata  -  ”051  8” 

Ptpoint  “  4 

Case  CTimeopt  -  36  .Dr.  Timeopt  -  37] 

*  —  X  12  or  Q2h 
Passdata  -  "Q51  9" 

Ptpoint  ”  8 

Case  CTimeopt  -  38  .Or.  Timeopt  -  39] 

*  —  X  24  or  Qlh 
Passdata  -  ”Q51  10” 

Ptpoint  •  16 

Endcase 

Da  Replaord 
Da  Repnrord 
Return 

Case  Xnord3dapt  -  2 

Marder  -  ’’Assist  Bed  To  Wheelchair” 

Do  B:Time 

Do  Case 

Case  CTimeapt  <  25  .Or.  Timeopt  -  41] 

*  —  Less  than  x  3  or  TID 
Passdata  -  ”051  1” 

Ptpaint  -  0 

Case  CTimeapt  >  24  .And.  Timeopt  <  34] 

*  —  X  3  or  less  than  D4h  Cx  6] 
Passdata  -  "Q51  7” 

Ptpoint  -  2 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35] 

*  —  X  6  or  Q4h 
Passdata  -  ”Q51  8" 

Ptpaint  -  4 

Case  CTimeopt  -  36  .Or.  Timeopt  -  37] 

*  —  X  12  or  Q2h 
Passdata  -  ”Q51  9” 

Ptpoint  -  8 

Case  CTimeopt  -  38  .Or.  Timeopt  - 

*  X  24  or  Qlh 
Passdata  -  ”051  10” 

Ptpoint  -  16 

Endcase 


39] 


□o  Replaord 
Da  Repnrard 
Return 

Case  Xnord3dopt  -  3 
0  18,29  Get  Ordoth; 

Piet  " ! xxxxxxxxxxxxxxxxxxxxxxxxxx 

Read 

florder  -  Ordoth 
Do  RBplaord 
Do  Repnrord 
Return 

Case  Xnord3dopt  -  4 

Harder  -  ’’Provide  Helping  Person" 

Do  B:Time 
Do  Replaord 
Do  Repnrard 
Return 

Case  Xnord3dopt  =  5 

Marder  **  ’’Provide  Mechanical  Aid” 

Da  B:Time 
Da  Replaord 
Da  Repnrard 
Return 

Endcase 

Release  Xnord3dopt 


Enddo 


N0RDER3E  .  PRG  •****••••***••*•****•*•*•••*••*•**••••• 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1385 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl9B5 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  nursing  order  for  a  pa- 

*  tient  whose  goal  is  demonstrates 

*  skills  to  achieve  goals. 

*  Input  Files  UsBd:  Narder3E . Scr ,  Time,  TBach  and 

*  Procfile.Prg 

*  Output  Files  Used:  Orders  and  Ncaredb.Dbf 

*  Calling  Routine:  Goal_3.Prg 

*  Routine  Called:  None 

*  Modification  Date:  3  February  1386 

* 

*  —  Screen  Input  Program  For  Norder3E  -- 

* 

Do  Setup 

Public  XnordSeapt 
Do  While  ,T. 

*  --  Screen  Display  A : Norder3E . Scr  -- 

Set  Color  To  W  +  /B,  UJ+/B 
Clear 

Flash-*-  ”S  .  a  :  Narder3E  .  Scr  /  ” 

Set  Color  Tc  J*/B,W+/B 
XnordSeapt  -  1 
Da  Headings 

0  22,67  Get  Xnord3eopt  Piet  ”3”  Range  1,5 
Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  --  Orders. Dbf  files  -- 

Do  Case 

Case  XnordSeopt  -  1 

harder  -  "Provide  Oppart  To  Prac  Skil” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordSeopt  -  2 

Morder  -  "Teach  Factor-Impair  Moblity” 


Do  B: Teach 
Do  Replaced 
Do  Repnrord 
Return 

Case  XnordBeopt  -  3 

Morder  -  ’’Teach  Rationale  Far  Skills 

Do  B: Teach 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord3eopt  *  4 
G  10,29  Get  Ordoth; 

Piet  ” !  XXXXXXXXXXXXXXXXXXXXXXXXXX” 

Read 

harder  “  Ordoth 
Do  B.-Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  XnordSeopt  =*  5 

harder  -  ’’Teach  Required  Exercise” 

Do  B: Teach 
Da  Replaord 
Do  Repnrord 
Return 

Case  XnordBeopt  -  6 

harder  -  "Teach  Use  OF  Adjuncts/Aids 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnord3eapt 


Enddo 


*•**  ASSESS.4 . PRG  **«******»******»•***»•*•******«.******* 

*  Author :  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  23  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl985 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  nursing  assessment  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  self-care  deficit. 

*  Input  Files  Used:  Assess.1! .  Scr  and  PracfilB.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  N.Diag.Prg 

*  Routine  Called:  Relate_4.Prg 

*  Modification  Date:  3  February  1988 

* 

*  --  Screen  Input  Program  For  Assess_4  — 

• 

Do  Setup 
Public  Xass4opt 

Do  While  .T. 

*  --  Screen  Display  A : Assess_4 . Scr  -- 

Set  Color  To  W+/B,UI+/B 
Clear 

??  Flash+”S.A: Assess _4 .Scr/ ” 

Set  Color  To  U)+/B,W+/B 
Xass4apt  “  01 
Da  Headings 

0  82,86  Get  Xass4opt  Piet  ”99”  Range  1,14 
Read 

*  —  Allows  nurse  to  document  assessment  of  the 

*  —  patient  — 

Do  Case 

Case  Xass4opt  -  1 

Nassess  -  "Unable  To  Cloth  Self” 

Da  B:Relate_4 
Return 

Case  Xass4opt  -  2 

Nassess  -  ’’Unable  To  Cut  Food” 

Do  B:Relate_4 
Return 


”5^ 


:>& 

vV 


Case  Xa3s4opt  -  3 

Nassess  ~  ’’Unable  To  Drink” 

Do  B : Relate_4 

Return 


Case  Xass4opt  -  4 

Nassess  “  ’’Unable  To  Fasten  Clothes” 

Do  B:Rslate_4 
Return 

Case  Xass4apt  -  5 

Nassess  “  ’’Unable  To  Feed  Self” 

Do  B.-Relate_4 
Return 

Case  Xass4apt  -  B 
@  18,24  Get  Assoth; 

Piet  ”! XXXXXXXXXXXXXXXXXXXXXXXXXX ” 
Read 

Nassess  •  Assoth 
Do  B : Relate_4 
Return 

Case  Xass4apt  “  7 

Nassess  -  ’’Unable  Ta  Get  To  Bathroom” 

Do  B : Relate_4 
Return 

Case  Xass4opt  -  8 

Nassess  -  ’’Unable  To  riaint  Appearance” 

Do  B:Relate_4 

Return 

Case  Xass4opt  *  8 

Nassess  -  ’’Unable  To  Select  Clothes" 

Do  B:Relate_4 
Return 

Case  Xass4apt  -  10 

Nassess  “  "Unable  To  Sit  Qn  Toilet” 

Do  B:Relate_4 
Return 

Case  Xass4opt  “  11 

Nassess  “  "Unable  To  Da  Toilet  Hygiene” 

Do  B:Relate_4 

Return 

Case  Xass4opt  -  12 

Nassess  "  "Unable  Ta  Rise  Off  Toilet” 


•c.  V-  ■ 


-v'.vl 


****  RELATE_4 . PRG  *************************************** 

*  Author:  Gary  R.  Harmeyer  LCOR  NC  USN 

*  Date:  23  December  1385 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  OF  New  York,  cl3B5 

*  Purpose:  Provides  a  menu  For  the  nurse  to 

*  select  related  factors  for  a 

*  patient  with  a  nursing  diagnosis 

«  of  self  care:  deficit. 

»  Input  Files  Used:  Relate_4.Scr  and  Procfile.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Assess_4.Prg 

*  Routine  Called:  Goal_4.Prg 

*  Modification  Date.-  3  February  1986 

* 

*  —  Screen  Input  Program  For  Relate_4  -- 

* 

Do  Setup 
Public  Xrel4opt 

Da  While  .T. 

*  --  Screen  Display  A : Relate_4 . Scr  — 

Set  Color  To  W+/B , W+/B 
Clear 

??  Flash+”S. A :Relate_4. Scr/’* 

Set  Color  To  UJ+/B ,  W+-/B 
Xrel4opt  -  01 
Do  Headings 

@  22,66  Get  Xrel4apt  Piet  ”99”  Range  1,10 
Read 

*  —  Previous  assessment  is  related  to  some  cause  -- 
□a  Case 

Case  Xrel4apt  -  1 

Nrelate  -  "Activity  Intolerance" 

Do  B:Gaal_4 
Return 

Case  Xrel4opt  -  2 

Nrelate  -  "Depression” 

Do  B : Goal_4 
Return 

Case  Xrel4apt  *  3 

Nrelate  *  "Developmental  Phase” 


Do  B:Goal_4 
Return 

Case  Xrel4opt  -  4 

Nrelate  “  "musculoskeletal  Function* 

Do  B:Goal_4 

Return 

Case  Xrel4apt  -  5 
0  17,14  Get  Relath; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXX” 

Read 

Nrelate  -  Reloth 
Do  B : Gaal_4 
Return 

Case  Xrel4apt  -  6 

Nrelate  -  "Neuromuscular  Impairment* 

Do  B:Goal_4 

Return 

Case  Xrel4apt  -  7 

Nrelate  “  "Pain  /  Discomfort” 

Do  B:Goal_4 
Return 

Case  Xrel4opt  -  B 

Nrelate  -  "Perceptual  Impairment” 

Do  B:Gaal_4 
Return 

Case  Xrel4opt  -  9 

Nrelate  “  "Sensory  Impairment” 

Da  B:Goal_4 
Return 

Case  Xrel4opt  -  10 

Nrelate  “  "Severe  Anxiety” 

Do  B:Goal_4 
Return 

Endcase 

Release  Xrel4opt 


Enddo 


**•*  G0AL_4 . PRG  ***************************************** 

*  Author:  Gory  R.  Harmeyer  LCDR  NC  USN 

*  Date:  £3  December  1985 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  cl905 

*  Purpose:  Provides  a  menu  for  the  nurse  to 

*  select  a  patient  goal  for  a 

*  patient  with  a  nursing  diagnosis 

*  of  self-care:  deficit. 

*  Input  Files  UsBd :  Gaal_4.Scr  and  ProcfilB.Prg 

*  Output  Files  Used:  None 

*  Calling  Routine:  Relate_4.Prg 

*  Routine  Called:  Norder4A,  Norder4B,  Norder4C, 

*  Norder4D  or  Norder4E.Prg 

*  riadification  Date:  £5  January  1986 

m 

m  —  Screen  Input  Program  For  Goal_4  — 

* 

Da  Setup 

Public  Xgoa4opt , Xgoa4cur 
Xgaa4cur  -  Spaced! 

Do  Chile  .T. 

*  --  Screen  Display  A:Gaal_4.Scr  -- 

Set  Color  To  U)+/B,U)+/B 
Clear 

??  F lash+ ”S . A : Gaal_4 . Scr/ ” 

Set  Color  Ta  U+/B , W+/B 
Xgaa4opt  *  1 
Da  Headings 

3  21,67  Get  Xgaa4apt  Piet  ”9”  Range  1,5 
Read 

*  --  Allows  nurse  ta  select  specific  goal  attainable 

*  --  by  this  patient  and  current  level  of  care  the 

*  —  the  patient  requires  — 

Do  Case 

Case  Xgoa4opt  *  1 

Ngaal  “  "Func  3  Level  0,  Full  Self  Care” 

Do  Current 
Da  Replaord 
Da  B:Norder4A 
Return 


Case  Xgoa4apt  “  2 

Ngoal  *  ”Func  0  Level  1,  Use  DF  Equip/Device" 

Do  Current 
Do  Replaord 
Do  B:Norder4B 
Return 

Case  Xgoa4apt  -  3 

Ngoal  “  ”Func  @  Level  2,  Needs  Assist/Superv is " 

Do  Current 

Da  Replaord 

Do  B:Norder4C 

Return 

Case  Xgoa4apt  -  4 

Ngoal  “  "Func  (3  Level  3  Needs  Assist/Use  Device' 

Do  Current 

Do  Replaord 

Da  B:Norder4D 

Return 

Case  Xgoa4opt  -  5 

Ngoal  -  "Func  0  Level  4  Dependent/No  Participtn' 

Do  Current 

Do  Replaord 

Do  B:Narder4E 

Return 

Endcase 

Release  Xgoa4apt , Xgoa4cur 
Er.ddo 
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***  NQRDER4A . PRG  ***************************************** 

Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

Date:  23  December  1905 

Screen  Generated  By:  The  Software  Bottling  Company 

Of  New  York,  cl9S5 

Purpose:  Provides  a  menu  far  the  nurse  to 

select  a  nursing  order  for  a 
patient  whose  goal  is  functions 
□t  level  0:  full  self  care. 

Input  Files  Used:  Narder4A . Scr ,  IimB  and  ProcfilB.Prg 

Output  Files  Used:  Orders  and  Ncaredb.Dbf 

Calling  Routine:  Gaal_4.Prg 

Routine  Called:  None 

riodif ication  Date:  3  February  1906 

--  Screen  Input  Program  For  Narder4A  — 

Do  Setup 

Public  Xnord4aopt 
Do  While  . T . 

*  --  Screen  Display  A : Norder4A . Scr  — 

Set  Color  To  U-t-/B,W+/B 
Clear 

??  Flash+”S . A:Norder4A .Scr/” 

Set  Color  To  U+/B.W+/B 
Xnord4aopt  -  1 
Do  Headings 

0  22,67  Get  Xnord4aapt  Piet  ”9”  Range  1,3 
Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  —  case  statement,  then  place  data  into  Ncaredb  and 
»  --  Orders. Dbf  files  -- 

Da  Case 

Case  Xnord4aopt  -  1 

Harder  -  "Supprt  Increse  Indep  In  ADL” 

Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard4aapt  *  2 

Horder  -  ”Peds  Recreation/Observation” 

Passdata  -  ”Q26  1" 

Ptpoint  ”  9 


Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4aapt  -  3 
3  17,42  Get  Qrdoth; 

P let  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX ’ 
Read 

norder  -  Qrdoth 
□a  B:Time 
Da  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnard4aopt 


Enddo 


***  NQRDER48 . PRG  **************************************** 

Author:  Gory  R.  Harmeyer  LCDR  NC  USN 

Date-.  23  December  1985 

Screen  Generated  By:  The  Software  Bottling  Company 

□F  New  York,  cl9B5 

Purpose:  Provides  a  menu  for  the  nurse  to 

select  a  nursing  order  far  a 
patient  whose  goal  is  functions 
at  level  1:  needs  equipment  or 
device . 

Input  Files  Used:  Norder4B . Scr ,  Time  and  Procfile.Prg 

Output  Files  Used:  Orders  and  Ncaredb.Dbf 

Calling  Routine:  Goal_4.Prg 

Routine  Called;  None 

nodification  Date:  3  February  1985 

—  Screen  Input  Program  For  Norder4B  — 

Da  Setup 

Public  Xnord4bapt 
Do  While  .T. 

*  —  Screen  Display  A  Narder4B  .  Scr  — 

Set  Color  To  W+/B,U+/B 
Clear 

??  Flash+"S. A :Narder4B. Scr/” 

Set  Color  To  U+/B,U+/B 
Xnord4bopt  *  1 
Do  Headings 

@  22,67  Get  Xnord4bopt  Piet  ”9”  Range  1,8 
Read 

*  --  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  —  Orders. Dbf  files  — 

Da  Case 

Case  Xnard4bopt  ■  1 

Harder  *  ’’Provide  Equip  For  Bathing” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4bopt  -  2 

Harder  -  ’’Provide  Equip  For  Dressing" 


Do  B:Time 
Do  Rsplaord 
Do  Repnrord 
Return 

Cose  Xnord4bopt  -  3 

Harder  -  ’’Provide  Equip  For  Feeding” 

Do  B:Time 

Da  Replaord 

Do  RBpnrord 

Return 

Case  Xnard4bapt  “  4 
0  10,11  Get  Ordoth ; 

Piet  ’’!  XXXXXXXXXXXXXXXXXXXXXXXXXX” 

Read 

Horder  -  Ordoth 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard4bopt  -  5 

Morder  -  ’’Provide  Equip  For  Toileting 

Da  B:Time 

Da  Replaord 

Do  Repnrord 

Return 

Case  Xnord4bopt  “  6 

Harder  -  ”Peds  Recreation/Observation 
Passdata  -  ”Q26  1” 

Ptpoint  -  0 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard4bopt  -  7 

Harder  -  ’’Spoon  Feed  Patient” 

Passdata  -  ”Q20  1” 

Ptpoint  -  B 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4bopt  -  0 

Harder  -  ’’Spoon  Feed  Child” 

Passdata  -  "Q20  2” 

Ptpoint  •  10 
Da  Replaord 


****  N0RDER4C.PRG  **♦* 

*  Author : 

*  Date: 

*  Screen  Generated  By : 

* 

*  Purpose: 


* 

*  Input  Files  Used: 

* 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Iladif ication  Date: 


Gary  R  •  Harmeyer  LCDR  NC  USN 
23  December  1305 
The  Software  Bottling  Company 
Of  New  York,  clS85 
Provides  a  menu  for  the  nurse  to 
select  a  nursing  order  for  a 
patient  whose  goal  is  functions 
at  level  2:  needs  assistance, 
supervision  ar  othBr . 

Narder4C . Scr ,  Time,  Emosup  and 
Procf i le  .  Prg 
Orders  and  Ncaredb.Dbf 
Gnal_4 . Prg 
None 

3  February  1306 


*  —  Screen  Input  Program  For  NorderdC  — 

* 


Do  Setup 

Public  Xnord4capt 


Do  While  ,T. 


*  —  Screen  Display  A : Norder4C . Scr  — 

Set  Color  To  UI+/8 ,  UJ+/B 
Clear 

??  Flash+”S. A: Narder4C. Scr/” 

Set  Color  To  W+/B , W+/B 
Xnard4capt  -  01 
Do  Headings 

@  22,66  Get  Xnard4copt  Piet  ”SS”  Range  1,16 
Read 


0  --  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  —  Orders. Dbf  files  -- 


Do  Case 

Case  Xnord4copt  ”  1 

(larder  -  "Assist  To  Dress” 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 


3^0 


*  * 


uJtmimdmdm  imk’i  i JkmJL* 


*"v.  *  v ■**  k."  !<.*  ^v*  ■'.»  ■/.■ 


Case  Xnord4capt  -  2 

Harder  «  ’’Assist  To/Fram  Bathroom” 

Da  B:Time 
Da  Replaord 
Da  Repnrord 
Return 

Case  XnordHcapt  -  3 

Harder  *  ’’Assist  With  Partial  Bath” 

Da  B:Time 

Da  Raplaard 

Da  Repnrard 

Return 

Case  Xnord4capt  =  4 

Harder  “  "Assist  Ta  Camb/Brush  Hair” 

Do  B:Time 

Da  Replaard 

Da  Repnrord 

Return 

Case  Xnard4capt  =  5 

Harder  -  ’’Dress  Patient” 

Da  Replaard 
Da  Repnrard 
Return 

Case  Xnard4capt  -  6 
@  18,12  Get  Drdath; 

Piet  ”! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Harder  -  Ordoth 
Da  B:Time 
Da  Replaard 
Da  Repnrard 
Return 

Case  Xnard4capt  -  7 

Horder  -  "Feed  Patient” 

Passdata  -  ”028  1" 

Ptpaint  **  6 
Da  Replaard 
Da  Repnrord 
Return 

Case  Xnord4copt  »  8 

Harder  -  ’’Give  Emotional  Support” 

Da  B:Emosup 
Do  Replaard 


3^1 


Do  Repnrord 
Return 

Case  Xnord4copt  -  9 

Harder  -  "Give  Complete  Both" 

Da  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Cose  Xnord4copt  -  10 

florder  -  "Keep  Commode  (3  Bedside" 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4copt  -  11 

Morder  -  "Keep  Urinal/Bedpan  Near” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4copt  -  12 

Harder  -  "Peds  Recreat ion/Dbservation 
Passdata  -  "Q26  1” 

Ptpoint  -  8 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4copt  -  13 

Harder  -  "Set  Up  Food  Tray” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4copt  -  14 

Horder  -  "Shave  Patient" 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4copt  -  15 

Harder  “  "Socialize  During  Heals" 

Do  Replaord 


Do  Repnrord 
Return 

Case  Xnord4copt  “  16 

tlorder  ”  ’’Spoon  Feed  Child 
Possdata  "  ”Q20  2’’ 

Ptpaint  “  10 
Do  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  Xnard4copt 


Enddo 


N0RDER4D . PRG  ***« 

*  Author : 

*  Date: 

*  ScrBBn  Generated  By : 

* 

*  Purpose: 

* 


* 

« 

*  Input  Files  Used: 


*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 


Gary  R.  Harmeyer  LCDR  NC  USN 
23  December  1985 
The  Software  Bottling  Company 
Of  New  York,  cl985 
Provides  a  menu  for  the  nurse  to 
select  a  nursing  order  for  a 
patient  whose  goal  is  functions 
at  level  3:  needs  assistance  and 
usbs  equipment. 

Norder4C . Scr ,  Time,  Emosup  and 
Proof i le . Prg 
Orders  and  Ncaredb.Dbf 
Gaal_4 . Prg 
None 

3  February  198G 


*  —  Screen  Input  Program  For  Narder4D  -- 

* 

Da  Setup 

Public  Xnord4dopt 
Do  While  .T. 

*  —  Screen  Display  A : Norder4D . Scr  — 

Set  Color  To  W+/B,W+/B 
Clear 

??  Flash-*-  "S  .  A :  Narder4D  .  Scr  /  ” 

Set  Color  To  U+/B ,  UJ+/B 
Xnard4dopt  “  01 
Do  Headings 

@  22, G6  Get  Xnord4dapt  Piet  ”99”  Range  1,16 
Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  --  Orders. Dbf  files  -- 


Do  Case 


Case  Xnord4dopt  -  1 

Harder  -  ’’Assist  To  Dress” 

Da  B:Time 

Do  Replaard 

Da  Repnrord 

Return 


Case  Xnord4dopt  -  2 

Harder  **  ’’Assist  Ta/Fram  Bathroom’’ 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  -  3 

Harder  “  ’’Assist  With  Partial  Bath” 

Do  B:Time 

Da  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dopt  ■  4 

Horder  ”  ’’Assist  To  Comb/Brush  Hair" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4dapt  “  5 

Horder  *  ’’Dress  Patient” 

Do  Replaord 
Da  Repnrord 
Return 

Case  Xnard4dapt  -  6 
0  18,12  Get  Qrdath; 

Piet  ” ! XXXXXXXXXXXXXXXXXXXXXXXXXX” 
Read 

Harder  -  Qrdath 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  ■  7 

Harder  ■  ’’Feed  Patient” 

Passdata  -  ”Q2B  1” 

Ptpoint  -  B 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  ”  8 

Horder  “  ’’Give  Emotional  Support” 

Do  B:Emosup 
Do  Replaord 
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Do  Repnrord 
Return 

Case  Xnord4dopt  -  3 

(larder  ■  ’’Give  Complete  Bath” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard4dopt  -  10 

harder  -  ’’Keep  Commode  @  Bedside” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  -  11 

(larder  -  "Keep  Urinal/Bedpan  Near” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard4dapt  -  12 

(larder  -  "Provide  Necessary  Equipment 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnard4dopt  ■  13 

Harder  -  "Provide  Far  Hygiene” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  -  14 

harder  -  ’’Set  Up  Food  Tray” 

Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4dopt  -  15 

harder  *  "Spoon  Feed  Child” 

Fassdata  -  ”Q2B  2” 

Ptpoint  “  10 
Do  Replaord 


Oo  Repnrard 
Return 

Case  Xnord4dapt  -  16 

Harder  -  ”Peds  Recreatian/Dbservation 
Passdata  -  ’’aSB  1 " 

Ptpaint  -  B 
Da  Replaord 
Do  Repnrord 
Return 

Endcase 

Release  XnordHdopt 
Endda 


***  N0RDER4E . PRG  *************************************** 

Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

Date:  23  December  19B5 

Screen  Generated  By:  The  Software  Bottling  Company 

Of  New  York,  clSBS 

Purpose:  Provides  a  menu  for  the  nurse  to 

select  a  nursing  order  fa.  a 
patient  whose  goal  is  functions 
at  level  4:  dependent  and  does 
not  participate  in  carB . 

Input  Files  Used:  Norder4E . Scr ,  Time,  Emasup  and 

Pracf i le . Prg 

Output  Files  Used:  Orders  and  Ncaredb.Dbf 

Calling  Routine:  Gaal_4.Prg 

Routine  Called:  None 

Hodification  Date:  3  February  1SBB 

—  Screen  Input  Program  For  Narder4E  — 

Do  Setup 

Public  Xnard4eopt 
Do  While  .T. 

*  —  Screen  Display  A : Narder4E . Scr  — 

Set  Color  To  UJ+/B,UJ+/B 
Clear 

??  Flash* "S . A : Narder4E . Scr/ ” 

Set  Color  To  U+/B,W+/B 
Xnord4eopt  -  01 
Da  Headings 

G?  22,66  Get  Xnard4eapt  Piet  ”99”  Range  1,16 
Read 

*  —  Nursing  orders  are  determined  by  evaluating  the 

*  --  case  statement,  then  place  data  into  Ncaredb  and 

*  —  Orders. Dbf  files  -- 

Do  Case 

Case  Xnord4eopt  -  1 

florder  -  ’’Assist  To/From  Bathroom” 

Da  B:Time 
Do  Replaord 
Do  Repnrord 
Return 


Case  Xnord4eopt  "  2 

(larder  -  ’’Assist  To/From  Commode” 

Do  B:Time 
Do  Replaard 
Do  Repnrord 
Return 

Case  Xnord4eopt  "  3 

Harder  “  "Assist  To  Comb/Brush  Hair" 

Do  B:Time 

Do  Replaord 

Do  Repnrord 

Return 

Case  Xnord4eopt  -  4 

Morder  -  "Dress  Patient” 

Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4eopt  -  5 

Morder  -  ’’Feed  Patient” 

Passdata  -  ”Q2B  1” 

Ptpaint  -  6 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4eapt  -  6 
0  10,12  Get  Ordath; 

Piet  ”! XXXXXXXXXXXXXXXXXXXXXXXXXX” 

Read 

Morder  *  Ordath 
Do  B:Time 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnard4eopt  “  7 

Morder  -  "Give  Complete  Bath” 

Do  B:Time 
Da  Replaord 
Do  Repnrord 
Return 

Case  Xnord4eopt  -  S 

Morder  -  "Give  Emotional  Support” 

Do  B:Emosup 
Do  Replaord 


•  -  *  "  •  ►  *  *  »  '  «  •  •  *  *  *  •  '  fc  «  •  '  '  ■  ,  *  *  *  »  '  J.  *  *  »•  “  »  «  *  »  4  ft  *  ►  * 
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Do  Repnrord 
Return 

Case  Xnord4eopt  ■  9 

Horder  ■  ’’Provide  For  Oral  Hygiene” 

Do  B:Time 
Da  Reploord 
Do  Repnrord 
Return 

Cose  Xnord4eopt  -  10 

Horder  ■  ’’Provide  For  Personal  Hygene 

Do  B : Time 

Da  Replaord 

Do  Repnrord 

Return 

Case  Xnard4eapt  -  11 

florder  “  ’’Provide  Urinal/Bedpan’’ 

Da  B:Time 
Do  Replaord 
Da  Repnrord 
Return 

Case  Xnord4eapt  -  IB 

Harder  -  ’’Spoon  Feed  Child” 

Passdata  -  ’’Q28  2” 

Ptpoint  -  10 
Da  Replaord 
Do  Repnrord 
Return 

Case  Xnard4eopt  -  13 

Harder  -  ’’Other  Activity  015  <30min] 
Passdata  -  "056  2” 

Ptpoint  -  2 
Da  Replaord 
Da  Repnrord 
Return 

Case  Xnord4eapt  -  14 

Harder  -  "Other  Activity  C>30min]” 
Passdata  -  ”Q56  3” 

Ptpoint  -  4 
Do  Replaord 
Do  Repnrord 
Return 

Case  Xnord4eopt  -  15 

Harder  -  "Special  Procedure  C>1  <2hr3 


•  .  •  ***  »*•  •  ►  »  *  w'*  •  •  *  *«'•»  "•  .*»'**  '  *■  .  *  .  •  ,  *  ,  * 


Passdata  ”  ”Q56  4” 

Ptpaint  ”  B 
□a  Replaord 
Oo  Rspnrard 
Return 

Case  Xnord4eapt  •  IB 

Marder  -  "Xtra  Linen  Chge/Partal  Bath” 
□a  B:Time 

Do  Case 

Case  CTimeopt  <  34  .Or.  Timeopt  -  41] 

•  —  Less  than  x  6  per  day 
Passdata  ”  ”Q24  1” 

Ptpaint  ”  0 

Case  CTimeopt  -  34  .Or.  Timeopt  -  35] 

•  —  x  2  per  shift  or  x  B  per  day 
Passdata  -  ”024  2” 

Ptpaint  "  4 

Case  CTimeopt  “  3B  .Or.  Timeopt  “  37] 
»  —  x  4  per  shift  or  x  12  per  doy 
Passdata  -  ”Q24  3" 

Ptpaint  -  B 

Case  CTimeopt  “  38  .Or.  Timeopt  ”  39] 

•  x  B  per  shift  or  x  24  per  day 
Passdata  -  "Q24  4” 

Ptpaint  -  16 
Endcase 

Da  Replaord 
Do  Repnrard 
Return 

Endcase 

Release  Xnord4eapt 
Enddo 


*****  INACTIUE .PRG  **** 

*  Author: 

*  Date: 

*  Screen  Generated  By : 

« 

*  Purpose: 

* 

* 

*  Input  Files  Used: 

*  Output  Filss  Used: 

*  Calling  Routine: 

*  Routine  Calls: 

*  Modification  Date: 


Gary  R.  Harmeyer  LCDR  NC  USN 
8  January  1886 

The  Software  Bottling  Company 
Of  New  York,  clSBS 
Displays  the  patient’s  nursing  care 
plan  and  allows  it  to  be  modified 
by  inactivating  portions  of  it. 
Inactive. Scr  and  Pracfile.Prg 
NcarBdb . Dbf 
Nursel . Prg 
None 

4  February  19BB 


*  --  Screen  Input  Program  For  Inactive  -- 

* 

Do  Setup 

Public  Xinaopt , Xidate , Xitime , Xi nurse , Xnpack 
Public  Xiemo, Xifreq, Xmptfmpssn, Xidiag , Xmord 
Public  Xigoal , Xi assess, X ire late , Xiord 
Xnpack  “  .F. 


Identify  correct  patient  and  isolate  the  nursing 
care  plan  — 


Use  B:Ncaredb 

Store  -*■  Ptfmpssn  +  "  ”*  To  Xmptfmpssn 
Locate  For  Nfmpssn  -  &Xmptfmpssn 


Da  While  .T. 


*  —  Store  data  from  Dbf  file  into  variable  names  — 


Xidate  -  Ndate 
Xitime  -  Ntime 
Xinurse  -  Nurse 
Xiemo  *  Emotea 
Xifreq  -  Nfreq 
Xidiag  -  Ndiag 
Xigoal  -  Goal 
Xiasses3  -  Assess 
Xirelate  •  Relate 
Xiard  -  Nord 

*  --  Screen  Display  B: Inactive . Scr  -- 

Set  Color  To  W+/B , W+/B 
Clear 

??  Flash-*- ”S  .  B :  Inactive  .  Scr/ ” 


Set  Color  To  W+/B , W+/B 
Do  Headings 
Xinaopt  -  1 
0  13,1  Say  Xitime 
0  13,9  Say  Xidate 
0  13,19  Say  Xidiag 
0  13,46  Say  Xiassess 
0  14,1  Say  Xirelate 
0  14,27  Say  Xigoal 
0  15,1  Say  Xiard 
0  15,29  Say  Xifreq 
0  15,41  Say  Xiema 
0  15,61  Say  Xinurse 

0  22,67  Get  Xinaopt  Piet  ”9'’  Range  0,4 
Read 

*  --  Evaluate  action  based  an  the  option  selected  -- 
Do  Case 

Case  Xinaopt  -  0 

*  —  Sign-QFf 
IF  Xnpack  “  .T. 

Pack 

EndiF 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xinaopt  -  1 

*  —  Next  Plan 
Skip 

Do  While  CNFmpssn  #  SXmptFmpssn] 

IF  EOFC ] 

Nmenu  1 ” 

0  24,5  Say  "No  Additional  Care  Plans  On  This 
0  24,39  Say  "Patient  --  Press  Any  Key  To  ” 

0  24,66  Say  "Continue" 

Set  Console  OFF 
Wait 

Set  Console  On 
IF  Xnpack  -  .T. 

Pack 

EndiF 

Return 

Else 

Skip 

EndiF 

Enddo 


If  EOF  C  D 
Nmenu  *"1” 

0  24,5  Say  ”No  Additional  Care  Plans  On  This  ” 

0  24,38  Say  "Patient  —  Press  Any  Key  Ta  ” 

8  24,66  Say  "Continue” 

Set  Console  Off 
Wai  t 

Set  Console  On 
If  Xnpack  -  .T. 

Pack 

Endif 

Return 

Else 

Loop 

Endif 

Case  Xinaapt  *  2 

*  --  Inactivate  Plan 
Xnpack  *  .T. 

Store  +  Xiard  +  To  Xmord 

*  —  Remove  corresponding  order  from  Orders. Dbf 
U3e  B: Orders 

Locate  Far  C Fmpssn-SXmptf mpssn  .And.  Order-SXmord] 

Delete 

Pack 

*  —  Remove  nursing  care  plan  data  from  Ncaredb.Dbf 

Use  B:Ncaredb 

Delete 

Skip 

Do  While  CNfmpssn  #  SXmptfmpssn] 

If  EOF C  1 
Nmenu  “”1” 

0  24,5  Say  "No  Additional  Care  Plans  On  This  ” 

0  24,38  Say  "Patient  —  Press  Any  Key  To  ” 

0  24,66  Say  "Continue" 

Set  Console  OFF 
Wait 

Set  Console  On 
Pack 
Return 
Else 
Skip 
Endif 
Endda 
IF  EOF  C  3 
Nmenu  1 " 


V  .'Wir,v>w.  v-.  v,  r.  -r; ' 


0  24,5  Say  ”No  Additional  Care  Plans  On  This 
0  24,33  Say  ’’Patient  --  Press  Any  Key  Ta  ” 

0  24,66  Say  ’’Continue” 

Set  Console  Off 
Wait 

Set  Console  On 
Pack 
Return 
Else 
Loop 
Endif 

Case  Xinaopt  -  3 

*  --  Nurse  Master 
If  Xnpack  =*  .  T. 

Pack 

Endif 

Nmenu  -"l" 

Return 

Case  Xinaapt  =*  4 

*  --  Master 

I f  Xnpack  =  . T . 

Pack 

Endif 

Nmenu  •  ”  ” 

Return 

Endcase 

Release  Xinaapt , Xidate , Xit ime , Xi nurse , Xnpack 
Release  Xiemo , Xif req , Xmptf mpssn , Xidiag , Xmord 
Release  Xigoal , Xi assess ,Xirelate,Xiord 


Enddo 


•***  ADDELETE . PRG  *******«»*********«********»**»»»•***•* 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  DSN 

*  Date:  3  January  1SB6 

*  Screen  Generated  By:  The  Software  Bottling  Company 

*  Of  New  York,  clSBS 

m  Purpose:  Allows  the  data  processing  person- 

*  nel  to  choose  to  add  or  delete  a 

*  user. 

*  Input  Files  Used:  Addelete.Scr  and  Procfile.Prg 

*  Output  Filss  Used:  NonB 

*  Calling  Routine:  Master. Prg 

*  Routine  Calls:  Useinfo  or  Delete. Prg 

*  Modification  Date:  25  January  13B6 

* 

*  —  Screen  Input  Program  For  Addelete  — 

* 

Do  Setup 

Public  Xaddelapt 
Do  While  .T. 

*  —  Screen  Display  B : Addelete . Scr  — 

Set  Color  To  UJ+/B ,  W+/B 
Clear 

??  Flash+”S.B: Addelete. Scr/” 

Set  Color  To  UJ+/B,W+/B 
Xaddelapt  =*  0 

0  22,67  Get  Xaddelapt  Piet  ”S”  RangB  0,2 
Read 

*  —  Evaluate  action  based  on  the  option  selected  — 

Do  Case 

Case  Xaddelopt  *  0 

*  —  Sign-Off 
Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xaddelopt  -  1 

*  —  Add  A  User 
Do  B-.  Useinfo 
Loop 

Case  Xadmitopt  “  2 

*  —  Delete  A  User 
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M. - . mt . 


.jf 4k.A-iBkJLi»...4..AUL  »-A  S  a_A  *  4  ■.  B  *  *  m 


Oo  B:Delete 
Loop 

Endcase 

RelBQse  Xaddelopt 
Enddo 

i. 

i' 

c 

«. 

v 

w 

1 


I  V, 


***«  USEINFO. PRG  •*••• 

*  Author: 

*  Date: 

*  Screen  Generated  By : 

* 

m  Purpose: 

* 

*  Input  Files  Used: 

*  Output  Files  Used: 

*  Calling  Routine: 

*  Routine  Called: 

*  Modification  Date: 

* 


Gary  R .  Harmeyer  LCDR  NC  USN 
12  December  1985 
The  Software  Bottling  Company 
Of  New  York,  clSBS 
Allow  data  processing  personnel  to 
add  new  user . 

Useinfo.Scr  and  Procfile.Prg 
Useinfo . Dbf 
Addelete . Prg 
None 

4  February  1996 


•  --  Screen  Input  Program  For  Useinfo  — 

* 


Da  Setup 

Public  Xuf initial, Xuminitial, Xu 1 name 
Public  Xrequestor , Xcadeword , Xaccess 
Xuf initial  -  ”  . ”+SpaceCO] 

Xuminitial  -  SpaceCB] 

Xulname  -  SpaceC123 
Xrequestor  ■  SpaceC3] 

Xcadeword  *  SpaceC53 
Xaccess  “  3 


Do  While  .T. 


*  —  Screen  Display  B : Useinfo . Scr  — 

Set  Color  Ta  W+/B ,  UI+/B 
Clear 

??  Flash* ”S . B : Useinfo . Scr / ” 

Set  Color  To  W+/B.W+/B 
0  9,43  Get  Xuf initial  Piet  ”! 

0  11,43  Get  Xuminitial  Piet  ”!!!” 

0  13,43  Get  Xulname  Piet  ” ! XXXXXXXXXXX ” 
0  16,43  Get  Xrequestor  Piet  ”!!!" 

0  IB,  43  Get  Xcadeword  Piet  "MM!” 

0  20,43  Get  Xaccess  Piet  ”9”  Range  0,4 
Read 


Use  B:Useinfo 
Do  While  .Not.  EOFCD 
Skip 
Enddo 

Append  Blank 


*  —  Put  data  from  variable  names  into  Dbf  file  -- 


■'  .i.  —  Aw.i  . .  I  -  Mi...  _ A  . _ *1  ■ _ .  — 
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»***  DELETE. PRG  ************************************ 

*  Author:  Gary  R.  Harmeyer  LCDR  NC  USN 

*  Date:  9  January  1986 

*  Gcreen  Generated  By:  The  SoFttuare  Battling  Company 

*  Gf  New  York,  cl9BS 

*  Purpose:  Delete  a  user. 

*  Input  Files  Used:  Delete. Scr  and  ProcFile.Prg 

*  Output  Files  Used:  Useinfo.Dbf 

*  Calling  Routine:  Addelete.Prg 

*  Routins  Calls:  None 

*  riodification  Date:  4  February  1996 

* 

*  —  Screen  Input  Program  For  Delete  — 

* 

Do  Setup 

Public  Xdelapt , Xdlulname ,Xdlufinit,Xdluminit 
Public  Xdlreq , Xdlacc , Xusepack 
Xusepack  -  .F. 

Do  While  .T. 


*  —  Store  data  From  DbF  File  into  variable  names  — 

Use  B:UseinFa 
Xdlulname  *  Ulname 
XdluFinit  -  UFinitial 
Xdluminit  -  Uminitial 
Xdlreq  -  Requestor 
Xdlacc  -  Access 

*  —  Screen  Display  B:Delete.Scr  -- 

Set  Color  To  W+/B,UJ+/B 
Clear 

??  Flash* ”S  .  B:  Delete  .  Scr/ ’’ 

Set  Color  To  U+/B,W*/B 
Xdelapt  -  1 
0  13,5  Say  Xdlulname 
0  13,19  Say  XdluFinit 
0  13,22  Say  Xdluminit 
0  13,39  Say  Xdlreq 
0  13,66  Say  Xdlacc 

0  22,67  Get  Xdelopt  Piet  ”9”  Range  0,3 
Read 

*  --  Evaluate  action  based  on  the  option  selected  — 


Do  Case 


Case  Xdischopt  -  0 

*  —  Sign-Off 

If  Xusepack  -  .T. 

Pack 

Endif 

Close  Databases 
Close  Procedure 
Release  All 
Return  To  Master 

Case  Xdischopt  “  1 

*  —  Next  User 
Skip 

If  EOF  CD 

0  24,15  Say  ”No  Additional  Users 
0  24,44  Say  ’’Any  Key  To  Continue” 
Set  Console  Off 
wait 

Set  Console  On 
If  Xusepack  -  .T. 

Pack 

Endif 

Return 

Else 

Loop 

Endif 

Case  Xdischopt  -  2 

*  —  Delete  User 
Xusepack  “  .T. 

Delete 

Skip 

If  EOF  Cl 

(3  24,15  Say  ”No  Additional  Users 
@  24,44  Say  ’’Any  Key  To  Continue” 
Set  Console  Off 
Wait 

Set  Console  On 
Pack 
Return 
Else 
Loop 
Endif 

Case  Xdischopt  “  3 

*  —  Return  To  Add/Delete  Screen 
If  Xusepack  -  .T. 

Pack 

Endif 


--  Press  ” 


—  Press  ” 


Close  Databases 
Return 

Endcase 

Release  Xdelopt , XdlulnamB ,Xdlufinit,Xdluminit 
Release  Xdlreq , Xdlacc , Xusepack 

Endda 


A  PROTOTYPE 


•  •• 

PROJECT 

• 

• 
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•  •• 

FOR 

• 

* 

BY 
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•  ••• 
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« 
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HONTEREY,  CALIFORNIA 

RELEASE  X 


PRESS  ANY  KEY  TO  BEGIN 


13  Admission's  Deportment 
S3  Doctor's  Master 
33  Nursing  master 
43  System  Administration 
03  Sign-Off 


Select  one  number  CO-43 


SELECT  ADMIT  /  DISCHARGE  OPTION  ••• 


•••  DISCHARGE  A  PATIENT  •« 


FHP-SSN 


Patient  Name 


Practitioner 


01  Sign-off  II  Next  Patient  2]  Discharge  Patient  33  Admit/Discharge  Scr 


Current  User:  | 

Select  one  number  CO-33  — - 


Figure  3.2 
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2E 
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Figure  4 
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Word  Room  Bad 
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Rag  * 


□ate  Tima 


03  Sign-Off 


Current  Uaar 


•••  DOCTOR’S  MASTER  SCREEN  ••• 


13  Order  Entry 

23  Admit  /  Tranafar  /  Discharge  Patient 
33  Review  nodical  Orders 
43  Print  nodical  Orders 
S3  Discontinue  An  Order 

S3  Master  Screen 


Select  one  number  CO-63 


Ward  Room  Bed  Patient 


Reg  * 


•••  DOCTOR'S  ORDER  MENU  ••• 


13  Activity 

63  Pharmacy 

23  Diet 

73  Radiology 

33  IU’s  /  Blood 

83  Respiratory  Therapy 

43  Laboratory  Tests 

S3  Uital  Signs 

S3  Monitoring 

103  Ward  Routines 

1 

003  Sign-Off  113  Doctor's  Master  Screen  123  Master  Screen 

Current  User 


Select  one  number  COO-123  — 


Figure  4. 1 . 1 . 1 
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SELECT  ACTIUITY  LEUEL 
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Figure  4.1.1.1a 
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Figure  4.1.1.1b 
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•  IU  ORDERS  • 

13  Start  IU  of 
23  Alternate  IU  with 
33  Follow  Praaant  IU  w/ 
43  Interrupt  IU  for 
S3  Start  Second  IU  af 

63  Discontinue  IU 
73  Insert  Heparin  Lack 
83  Use  Multilumen  Line 


SELECT  IU  ORDER  ••• 


.45  NaCI 

Ringer’s  Lactate 
D5  Ringer's  Lactate 
DS  Water 
Normal  Saline 
DS  Normal  Saline 

Whale  Blood 
Packed  Cells 


003  Sign-OFF 


033  Doctor’s  Order  Screen 
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103  Master  Screen 
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Figure  4.1,l.le 
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•  SOLUTION  • 
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•••  SELECT  INFUSION  RATE 
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Alternate  IU  with 
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□iscontlnue  IU 
Insert  Heparin  Lack 
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.45  NaCl 

Ringer’s  Lactate 
□5  Ringer's  Lactate 
□S  Water 
Normal  Saline 
□S  Normal  Saline 

UlHale  Blood 
Packed  Cells 


•  INFUSION  RATE  • 


13 

Over 

30  run 

23 

Over 

1  Hr 

33 

Over 

2  Hr 

43 

Over 

4  Hr 

S3 

Over 

6  Hr 

S3 

Over 

8  Hr 

73 

Over 

12  Hr 

83 

Over 

24  Hr 

Current  user: 


Select  one  number 


C1-B3 


Figure  4.1.1,lg 


Ward  Room  Bed  Patient 


Reg  »  Oats  Time 


•••  SELECT  LABORATORY  TEST  ••• 


•  CHEHISTRY  • 

•  ENZYMES  • 

•  OTHER  • 

13  Bilirubin 

123  Amylase 

213  ABO  S  Rh 

2  3  BUN 

133  CPK 

223  ABG  Cfram  A-line3 

33  Calcium 

143  LDH 

233  ABG  C stick 3 

43  Cloride 

153  SGOT 

243  Blood  Culture 

53  C02 

163  SGPT 

253  Culture  &  Sensitivity 

63  Creatinine 

263  Cold  Agglutins 

73  Glucose 

•  HEMATOLOGY  • 

273  HCG 

83  Phosphate 

173  CBC 

283  Occ  Blood  in  Stools 

S3  Potassium 

183  Platlets 

2S3  RPR 

103  Sodium 

133  Protime 

303  SMA  6 

113  Uric  Acid 

203  Sed  Rate 

313  UA 

003  Sign-Off  323  Doctor’s  Order  Screen 

333  Master  Screen 

Current  User : 


Select  one  number  COO-333  — > 


Figure  4.1,l.lh 


Ward  Roam  Bad 


Rag  # 


Data  Tima 


SELECT  DESIRED  MEDICATION  /  DOSABE 


*• 

ANTIHISTAMINE  •• 

••  ANTI -INFECT IUE  •• 

• 

Benadryl 

i  *  Ampicillin 

• 

Erythromycin 

13 

25  mg 

CQ3 

S3 

250  mg  C03 

173 

250  mg  C03 

23 

50  mg 

CIM3 

103 

500  mg  C IM3 

183 

200  mg  Susp 

C03 

33 

50  mg 

CIU3 

113 

500  mg  CIU3 

• 

Keflex 

• 

Oimetapp 

•  Ancaf 

133 

250  mg  C03 

43 

4  mg 

C03 

123 

.5  Gm  CIM3 

203 

125  mg  Susp 

C03 

53 

5  mg  ] 

Elxr  C03 

133 

.5  Gm  CIU3 

• 

Sulfacetomine  Na 

• 

Phanergan 

•  Cefadyl 

213 

10%  Salt  C0p3 

63 

25  mg 

C03 

143 

500  mg  CIM3 

• 

Tetracycline 

73 

25  mg 

C  IM3 

153 

1.0  Gm  CIM3 

223 

250  mg  C03 

83 

25  mg 

CSP3 

163 

1.0  Gm  C 103 

233 

500  mg  CIU3 

213  Help  253  Next  Scraan  Cflora  Medal  263  Dr’s  Qrd  Screen  273  Mostar  Scree 

T 


Current  User 


Select  one  number  C01-273 


Ward  Roam  Bad 


Patient 


Rag  # 


SELECT  DESIRED  MEDICATION  /  DOSAGE 


••  ANTISEPTIC  •* 

••  CARD  I OUASCUL AR  •• 

••  CNS  DRUGS  •• 

•  Boric  Acid 

•  Digaxin 

•  Dilantin 

13  S*  Salt  m 

73  . 12S  mg  C03 

1S3  100  mg  C03 

B3  .250  mg  C03 

163  125  mg  Susp  C03 

••  AUTONOMIC  •• 

•  Inderal 

•  Elavil 

•  Atropine 

S3  10  mg  C03 

173  10  mg  C03 

23  0.4  mg  C03 

103  40  mg  C03 

183  2S  mg  C03 

33  0.4  mg  CIM3 

113  1  mg  CIU3 

133  SO  mg  C03 

•  Ualium 

•  Minipress 

•  Phenobarbital 

43  S  mg  C03 

123  1  mg  C03 

203  IS  mg  C03 

S3  S  mg  CIM3 

133  2  mg  C03 

213  30  mg  C03 

63  S  Gm  CIU3 

143  S  mg  C03 

223  60  mg  CIh3 

233  Help  243  Previous  Screen 

Current  User 


Select  one  number  C01-243  — 


Figure  4.1.1.1k 


HELP  SCREEN  FOR  PHARMACY  MODULES 

This  Help  Facility  explains  abbreviations  used  in  parenthesis.  IF 
the  user  requires  additional  information  on  medications  or  dosages,  they 
should  consult  the  PHYSICIAN’S  DESK  REFERENCE  CPDR3  or  contact  a  Pharmacy 
Officer.  The  abbreviations  indicate  the  route  of  administration: 


CQ3  Oral 

CIM3  Intramuscular 
CIU3  Intravenous 
CSp]  Suppository 


CI3  Irrigation 
C0p3  Opthalmic 
C SQ ]  Subcutaneous 


Figure  4.1.1.11 


Ward  Roam  Bad 


Patient 


Rag  # 


•••  SELECT  X-RAY  ••• 


13 

Abdomen  Flat  Plate 

103 

CT  Scan 

23 

Abdomen  AP 

113 

Gallbladder  Series 

33 

Abdomen  3-uiay 

153 

I  UP 

>13 

Angiography 

133 

Sinus  Series 

S3 

Arteriography 

143 

Skull 

63 

Barium  Enema 

153 

Spine 

73 

Brain  Scan 

163 

Tomograpy 

83 

Cheat  PA 

173 

Upper  GI  Series 

33 

Cheat  Lateral 

183 

Ultrosound 

o 

o 

Slgn-OFF  133  Doctor’s  Order  Screen 

503  riaster  Screen 

Select  ana  number  C 00-201 


Figure  4.1.1.1m 


Ward  Roam  Bed 


Patient 


Reg  # 


Date  Time 


•••  SELECT  RESPIRATORY  THERAPY  OPTIONS  •  THEN  FLOW  RATE  FDR  ROUTE 


•  • 

RESPIRATORY 

THERAPY  •• 

• 

Floui 

i  Rate  • 

13 

Chest  Pulmonary  j 

81 

Wean  From 

A3 

1-2 

liters/min 

Therapy 

Uentilator 

23 

Cough  &  Deep 

Breath 

B1 

3-4 

liters/min 

33 

Incentive 

•  Route  • 

Spirometer 

SI 

Croup  Tent 

C3 

5-6 

liters/min 

41 

IPPB 

103 

nask 

S3 

Suctioning 

113 

Hist  Tent 

□  3 

7-8 

liters/min 

63 

Tracheostomy 

Care 

121 

Nasal  Prongs 

71 

Uentilator 

131 

Oxyhood 

E3 

9-10 

liters/min 

001  Sign-OFF 

143  Doctor’s 

Order  Screen 

153  1 

hoster  Screen 

Select  ane  number  COO- 151  — 
Select  one  letter  CA-E1  ----- 


Figure  4. 1.1, In 


Ward  Roam  Bed 


Patient 


Reg  * 


SELECT  NURSING  DIAGNOSIS 


II  Comfort,  Alteration  In:  Pain 
31  Communication,  Impaired:  Verbal 
31  Impaired  Physical  Mobility 
41  Self-Care  Deficit 


01  Sign-Off 


51  Nurse's  Master  Screen 


SI  Master  Screen 


Current  User: 


Select  one  numoer  CO-61  — ->  • 


Figure  5  *  1 • 1 • 1 a 


Ward  Room  Bed  Patient  Reg  #  Date  Time 


••  SELECT  NURSING  ASSESSMENTS  FOR  A  PATIENT  WITH  •• 
••  NURSING  DIAGNOSIS  OF  COMFORT  ALTERATION  IN:  PAIN  •• 


11  Altered  Time 

Perception 

31  Alteration  Muscle  Tone 
31  Autonomic  Response 
41  Distraction  Behavior 
51  Facial  Mask 
61  Other  Assessment:  C--- 


71  Guarding  Behavior 

B1  Impaired  Thought 
Process 

31  Narrowing  Focus 
101  Pacing 
111  Patient  Report 
. 1 


121  Self-Focusing 

131  Talkative 

141  Herbal  Complaint 

1S1  Uocal  Complaints 
CMoans,  Crying] 

161  Withdrawal  From 

Social  Contact 


T 


1 


Current  User : 


Select  one  number  C01-161 


m  i,^ rm m  1^ m \m\w\m * m  l«  y«?«  I'll1*  u« V’* WT 


Ward  Roam  Bed  Patient  Reg  t*  Date  Time 

••  SELECT  A  RELATED  FACTOR  FOR  A  PATIENT  WITH  ** 

••  NURSING  DIAGNOSIS  QF  COflFORT  ALTERATION  IN:  PAIN  •• 


13 

Altered  Sensation 

53 

Surgical 

Procedure 

S3 

Disease  / 

Condition 

63 

Trauma 

33 

Emotional 

State 

73 

Treatment 

Regime 

H3 

Other :  C  ■ 

. 3 

Current  User: 


Select  one  number  Cl-73  — — > 


Figure  5*l.l*lc 


Ward  Room  Bed  Patient  Reg  *  Date  Time 


*•  SELECT  A  PATIENT  GOAL  FOR  A  PATIENT  WITH  •• 

••  NURSING  0IAGNGSI5  OF  COflFORT  ALTERATION  IN:  PAIN  •• 


11  Communicatee 
53  Communicates 
31  Communicates 
HI  Demos  Skills 
S3  Other  Goals: 


Pain  Free 

Experiences  Less  Pain 
Experience  of  Pain  flora  Tolerable 
&  Knowledge  to  Achieve  Pt  Goals 
C . 


Current  User: 


Select  one  number  Cl-53 


Figure  5*1. 1.16 


Ward  Room  Bad 


Patient 


Reg  # 


□ate 


Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  *• 

••  COnriUNICATES:  PAIN  FREE,  EXPERIENCES  LESS/TOLERABLE  PAIN  OR  OTHER  GOAL  •• 


II  Assess  Pain  Factors 

21  Assess  &  Evaluate  Pain 

31  Encour  Pt  to  Use  Coping  Strategy 

41  Give  Info  a  Explain  Prac  a  Tests 

SI  Other  Nursing  Orders: 

C . 3 


S3  Offer  PRN  Medications 
73  Provide  Emotional  Support 
83  Schedule  ’’Quiet  Times’’ 

S3  Teach  Alt  Coping  Strategies 
103  Utilize  Diversional  Activities 


Current  User: 


Select  one  number  C01-103  — > 


Figure 


Ward  Roam  Bed  Patient  Reg  #  Date  Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
••  DEMONSTRATES  SKILLS  a  KNOWLEDGE  TO  ACHIEUE  GOALS  •• 


•  Teach  Stress  Reduction  Techniques 
13  Deep  Breathing 
23  Progressive  Relaxation 
33  Relaxation  Response 
43  Diversional  Activity 
S3  Other :  C . 3 


Current  User: 


Select  one  number  Cl-53  ----> 


Figure 


332 


ward  Roam  Bed 


Patient 


Reg  # 


Date 


Time 


SELECT  TWE/FREQUENCY  OPTION  ••• 


13  PRN 

•  Daily  0 

203  2200 

303  0  ShiFt 

23  Q  1-2  Hr  PRN 

103  0200 

213  2400 

313  QIO 

33  0  2-3  Hr  PRN 

113  0400 

323  Q  6  Hr 

43  0  3-4  Hr  PRN 

123  0600 

223  BID 

333  x  4 

133  0800 

233  Q  12  Hr 

343  Q  4  Hr 

S3  On  Call 

143  1000 

243  x  2 

353  x  6 

63  OD 

153  1200 

253  TID 

7  3  HS 

163  1400 

263  AC 

363  Q  2  Hr 

83  x  1 

173  1600 

273  PC 

373  x  12 

93  Today  0 

183  1800 

283  9  B  Hr 

383  Q  1  Hr 

.... 

193  2000 

2S3  <  3 

393  x  24 

403  Help  413  Return  to  Calling  Screen 


Figure  5.1.1.1g 


HELP  SCREEN  FOR  THE  TIDE  nODULE 


Hospital  policy  dictates  the  exact  time  For  standardized  abbreviations. 


1-43  PRN 

5-213  Single  dosages 
□□  —  0300 
HS  —  2200 

22-243  Twice  a  day  Frequency 
BID  —  0900  &  2100 
Q  12  Hr  —  1200  &  2400 

2S-303  Three  times  a  day  Frequency 
TID  —  0900,  1400,  2100 
AC  —  0700,  1100,  1700 
PC  —  0900,  1300,  1900 
a  a  Hr  --  0600,  1400,  2200 
Q  ShiFt  --  0900,  1700,  0200 


31-333  Four  times  a  day  Frequency 

QIO  —  0900,  1300,  1700,  2 IOC 
D  5  Hr  —  0600,  1200,  1800, 
2400 

34-353  Six  times  a  day  Frequency 

Q  4  Hr  --  0200,  0600,  1000, 
1400,  1800,  2200 

36-373  Twelve  times  a  day  Frequency 
Q  2  Hr  —  Even  hours 

38-393  24  times  a  day  Frequency 
□  1  Hr  —  On  the  hour 

413  No  Frequency  will  be  assigned 


Figure  5,1 .1  ,lh 


UNCLASSIFIED 


You  have  identified  teaching  ae  a  nursing  intervention.  Please 
specify  the  type  of  teaching  that  will  be  required.  Remember  to 
document  the  teaching  you  give  to  your  patient. 


PI  Group  Teaching 
B3  Preoperative  Teaching 
Cl  Return  to  Previous  Screen 


□1  Structured  Teaching 

tie.  diabetic,  cardiac, 
colostomy  care,  post 
partum  first  24  hr,  newborn 
care,  or  discharge! 


Select  one  letter  CA-D3  — >  ■ 


Figure 


You  have  identified  emotional  support  as  a  nursing  intervention. 
Emotional  support  is  expected  far  each  patient,  but  augmented  staffing 
may  be  required  far  the  fallowing: 

•  Answer  A-C  only  if  emotional  support  is  in  excess  of  30  min  q24h  • 

A 3  Patient/family  support  tie.  anxiety,  denial,  loneliness,  etc.l 

B1  Modification  of  lifestyle  Cie.  new  prosthesis,  body  image, 
behavior  modification,  etc.l 

Cl  Sensory  deprivation  Cie.  retarded,  deaf,  blind,  language  barrier, 
bilateral  eye  patches,  confused,  combotivsl 

01  Return  to  previous  screen 

Select  one  letter  CA-D3  — >  ■ 

Figure  5 • 1 « 1 • 1 j 


384 


Currant  Usar : 


Salact  ona  number  Cl-63 


Ward  Room  Bad 


Patient 


Reg  # 


□ate 


Time 


••  SELECT  A  PATIENT  GOAL  FOR  A  PATIENT  WITH  •• 
••  NURSING  DIAGNOSIS  OF  IMPAIRED  PHYSICAL  MOBILITY  •• 


II  Able  to  Transfer  Independents 
SI  Able  to  Transfer  ui/  Assistance 
31  Demos  Skills  to  Achieve  Goals 
HI  Increase  Range  of  Motion  CR0M1 
S3  Maint  Effective  Breathing  Pattern 
S3  Other  Goals.-  C . 


73  Maintains  Full  ROM 
S3  Maintain  Pattern  of  Elimination 
S3  Maintain  Skin  Integrity 
103  No  Additional  Contractures 
113  Performs  ADL 
. 3 


Currant  User: 


Select  one  number  C01-113  — > 


Figure 


Uard  Roam  Bad  Patient 


Reg  #  Date  Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
••  MAINTAINS  FULL  ROM,  INCREASES  ROM,  NO  ADDED  CONTRACTURES  •• 
••  OR  MAINTAINS  EFFECTIUE  BREATHING  PATTERN  •• 


13  Active  Range  Of  Motion  CR0M3 

S3  Cough  ft  Deep  Breath 

33  Encourage  Independent  ADL 

H3  Gradual  Increase  ADL  Activity 

S3  Other  Nursing  Orders: 

C . 3 

. 


S3 

Passive  Range 

Of  Motion  CR0M3 

73 

Positioning 

S3 

Turning 

S3 

Accom  Pt  Off 

Ward 

015  OOminl 

103 

Accam  Pt  Off 

Ward 

C>  30  mini 

Current  User 


Select  one  number  C01-103 


Ward  Room  Bad 


Potlent 


Rag  * 


Data 


Tima 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
••  MAINTAINS  SKIN  INTEGRITY  OR  OTHER  •• 


n 

Ambulate 

1 

73 

Position 

S3 

Assist  to 

Select  Diet 

83 

Protect  Boneg  Prominences 

33 

Encourage 

Independent 

ADL 

83 

Protect  Pressure  Areas 

13 

Massage  to 

Promote  Circulation 

103 

Provide  Safe  Environment 

S3 

Personal  Possessions  u/in  Reach 

113 

Siderails 

63 

Other  Nursing  Orders: 

c . 

. 3 

Current  User: 


Select  ana  number  C01-113  •■•> 


Figure  5.1.1.1u 


Ward  Roam  Bad 


Patient 


Rag  ft 


Data 


Tima 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
••  MAINTAINS  PATTERN  OF  ELIMINATION  OR  PERFORMS  ADL  •• 
••  AFTER  SOME  SELECTIONS  YOU  WILL  BE  ASKED  FOR  FREQUENCY  •• 


13 

Ambulate 

with  Assistance 

63 

Range  Of  Motion  CROM3 

S3 

Increase 

Independence  Doing  ADL 

73 

Select  Diet  to  Promote 

33 

Plan  for 

Continuing  Care 

83 

Turn 

13 

Position 

S3 

Other  Nursing  Orders:  C . 

. 3 

Current  User: 


Select  one  number  Cl-83  — •> 


Ward  Roam  Bed 


Patient 


Reg  * 


□ate 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS 
••  ABLE  TO  TRANSFER  INDEPENDENTLY  OR  WITH  ASSISTANCE 


11 

Assist: 

Bed  to  Chair 

41 

Provide 

Helping  Person 

21 

Assist : 

Bed  to  Wheelchair 

51 

Provide 

nechanical  Aid 

31 

1 

Other  Nursing  Orders:  C . 

-  -3 

Select  one  number  C1-S3  — -> 


Figure 


Ward  Roam  Bed  Patient 


Reg  * 


*•  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS 
••  DEMOS  SKILLS  TO  ACHIEUE  GOALS 


11 

Provide  Opport  To  Practice 

Skills 

51 

Teach 

Required  Exercise 

21 

Teach  Factors  for  Impaired 

Mablty 

51 

Teach 

Use  of  Adjuncts/Aids 

31 

Teach  Rationale  For  Skills 

41 

Other  Nursing  Orders:  C--- 

. 3 

Select  one  number  Cl-61  — — 


Figure  5* 1.1. lx 


Ward  Roam  Bad  Patient  Rag  *  Oota  Tima 

•»  SELECT  A  PATIENT  GOAL  FOR  A  PATIENT  WITH  A  •• 

••  NURSING  DIAGNOSIS  OF  SELF-CARE:  DEFICIT  •• 

••  THEN  SELECT  CURRENT  LEUEL  OF  CARE  REQUIRED  •• 

•  Patiant  Goal  •  •  Currant  Level  • 


1 

Functions 

a 

Level 

0: 

Full  Self  Care 

A 1 

Infant/Toddler  Care 

1 

Functions 

0 

Level 

1  : 

Use  of  Equip  or  Device 

B1 

Self /Minimum  Care 

1 

Functions 

a 

Level 

2: 

Needs  Assist/Supervisn 

Cl 

Assisted  Care 

1 

Functions 

a 

Level 

3: 

Needs  Assist  8  Use  Device 

D1 

Complete  Care 

1 

Functions 

3 

Level 

H: 

Dependent  8  Does  Nat 

El 

Total  Care 

Participate 


Figure  5.1.1.1aa 


Ward  Room  Bed  Patiant  Rag  0  Data  Tima 

••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 

••  FUNCTIONS  AT  LEUEL  0:  FULL  SELF-CARE  •• 

11  Support  Increasing  Independence  in  ADL 

Cia.  feeding,  bathing,  toileting,  dressing,  grooming,  etc. 

31  Pads  Recreation/Observation 


31  Other  Nursing  Orders:  C . 1 


4 


Ward  Roam  Bed  Patient  Reg  »  Date 

••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS 
••  FUNCTIONS  AT  LEUEL  1:  NEEDS  EQUIPNENT  OR  DEUICE 


13 

Provide 

Equip 

For 

Bathing 

' 

i 

53 

Provide  Equip  For  Toileting 

23 

Provide 

Equip 

Far 

Dressing 

63 

Peds  Recreation/Observation 

33 

Provide 

Equip 

For 

Feeding 

73 

Spoon  Feed  Adult  Patient 

43 

Other  Nursing 

c . 

Orders: 

-3 

S3 

Spoon  Feed  Child  C<63 

Time 


•• 


Current  User : 


Select  one  number 


C 1-03  — -> 


Figure  5.1 .1  ,la.c 


Ward  Room  Bed  Patient 


Reg  *  Date  Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 

••  FUNCTIONS  AT  LEUEL  2:  NEEDS  ASSISTANCE/SUPERUI5I0N  OR  OTHER  •• 


11  Assist  to  Dress 
23  Assist  To/From  Bathroom 
33  Assist  uj/  Partial  Bath 
43  Assist:  Comb/Brueh  Hair 
S3  Dress  Patient 
63  Other :  C . 


73  Feed  Adult  Patient 
S3  Give  Emotional  Support 
33  Give  Complete  Bath 
103  Keep  Commode  3  Bedside 
113  Kp  Urinal/Bedpan  Near 
. 3 


123  Peds  Recreotion/Obs 
133  Set  up  Food  Tray 
143  Shove  Patient 
153  Socialize  During  Hoc 
163  Spoon  Feed  Child 


Current  User: 


Select  one  number  COl-163  — > 


Figure  5 • 1 • 1 • lad 
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M 

'■1 


a 


394 


Word  Roam  Bed 


Patient 


Reg  # 


Date 


Time 


••  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
•  •  FUNCTIONS  AT  LEUEL  3:  NEEDS  ASSISTANCE  AND  USES  EQUIP  •• 


II  Assist  to  Dress 
23  Assist  Ta/Fram  Bathroom 
33  Assist  in/  Partial  Bath 
43  Assist:  Comb/Brush  Hair 
S3  Dress  Patient 
63  Other:  C . 


73  Feed  Adult  Patient 
B3  Give  Emotional  Support 
S3  Give  Complete  Bath 
103  Keep  Commode  9  Bedside 
113  Kp  Urinal/Bedpan  Near 
. 3 


123  Provide  Necesary  Eqr 
133  Provide  For  Hygiene 
143  Set  Up  Food  Tray 
153  Spoon  Feed  Child  C<E 
163  Ped’s  Recreation/Obs 


Current  User: 


Select  one  number  COl-163 


Figure  5.1. 1.1 ae 


Ward  Room  Bed  Patient  Reg  #  Date  Time 

•*  SELECT  A  NURSING  ORDER  FOR  A  PATIENT  WHOSE  GOAL  IS  •• 
«•  FUNCTIONS  AT  LEUEL  4:  DEPENDENT  AND  DOES  NOT  PARTICIPATE  •• 


13  Assist  To/From  Bathroom 
23  Assist  To/From  Cammode 
33  Assist:  Comb/Brush  Hair 
43  Dress  Patient 
53  Feed  Adult  Patient 
63  Other:  C . 


73  Give  Complete  Bath 
83  Give  Emotional  Support 
83  Provide  for  Oral  Hygen 
103  Provide  Personal  Hygen 
113  Provide  Urinal/Bedpan 
. 3 


123  Spoon  Feed  Child  C<6 

133  Other  Act  015  <30mn 

143  Other  Act  C>30  < 1  hr 

153  Special  Proc  C>1  <2h 

163  Xtra  Linen  Chge/ 
Partial  Bath 
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Emotion/Teach  Nurse 


0]  Sign-Off  11  Next  Plan  21  Inactivate  Plan  31  Return  41  Master  Screen 


Current  User : 


Select  one  number  CO-41 
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Press  —  Ctrl  and  S  —  Kegs  to  Pause  The  Scrolling  If  Necessary 

Page  No .  1 

03/04/86 


□ate  Time  Nursing  Diagnosis  Assessment 

Related  To  Patient  Goal 

Nursing  Order  Frequency  Emotional/TBach  Nurse 


01/01/86  10:06:24  Comfort  Alteration  In:  Pain  Alteration  In  Muscle  Tone 
Disease  /  Condition  Communicates  Experience  Tolerable  Pain 

Teach  Alt  Coping  Strategies  Structured  Teaching  G.  Harmeyer 

01/01/86  10:08:12  Impaired  Physical  Mobility  Reluctant  To  Move 
Musculoskeletal  Function  Able  To  Transfer  With  Assistance 
Assist  Bed  To  Wheelchair  TIO  Structured  Teaching  3.  Harmeyer 

01/01/86  10:10:58  Self-Care  Deficit  Unable  To  Do  Toilet  Hygiene 

Neuromuscular  Impairment  Func  3  Level  2,  Needs  Assist/Supervis 
Keep  Commode  B  Bedside  TID  Structured  Teaching  3.  Harmeyer 


Page  No. 
01/12/86 


Press 

1 


Ctrl  and  S 


Keys  To  Pause  The  Scrolling  IF  Necessary 


□ate  Time  Order 


Frequency  Practitioner 


01/11/86  10:06:20  Teach  Alt  Coping  Strategies 

01/11/86  12:08:07  Assist  Bed  To  Wheelchair 

01/11/86  13:10:15  Self /Minimum  Care 

01/11/86  13:10:53  Keep  Commode  9  Bedside 

01/11/86  14:13:47  Up  in  Chair  w/  Assist 

01/11/86  10:14:23  Diabetic  Diet 

01/12/86  10:17:14  Cloride 

01/12/86  10:17:40  Sodium 

01/12/86  10:18.00  Amylase 

01/12/86  10:18:26  Potassium 

01/12/86  10:18:56  C02 

01/12/86  10:19:26  CBC 

01/12/86  10:19:54  Platlets 

01/12/86  10:20:18  Glucose 

01/12/86  10:22:02  Intake  &  Output 
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APPENDIX  G 


DATABASE  STRUCTURE 

Structure  of  the  four  databases  used  in  the  prototype 
project.  Names  have  been  elongated  to  provide  more  meaning 
for  the  reader. 

Patient  database 


Field  name 
LAST  NAME 
FIRST  NAME 
fllDDLE  NAME 
RATE/RANK 
FriPSSN 
BIRTH  DATE 
AGE 
SEX 

ADMISSION  DATE 

REGISTRATION  NUMBER 

MEDICAL  DIAGNOSIS 

PHYSICIAN 

PROGNOSIS 

ALLERGIES 

WARD 

ROOM 

BED 


Type 

Width 

Character 

20 

Character 

12 

Character 

3 

Character 

11 

Character 

12 

Date 

8 

Character 

3 

Character 

1 

Date 

8 

Character 

8 

Character 

24 

Character 

24 

Character 

3 

Character 

24 

Character 

2 

Character 

1 

Character 

1 

Order  database 

Field  name 

Type 

Width 

FMPSSN 

Character 

12 

ORDER 

Character 

27 

FREQUENCY 

Character 

12 

TIME 

Character 

8 

DATE 

Character 

8 

PRACTITIONER 

Character 

20 

QUALIFIER 

Character 

6 

TODAYONLY 

Character 

1 

PATIENT  POINTS 

Numeric 

3 

MODULE 

Character 

1 

MONITOR  POINTS 

Numeric 

2 

EMOTION  POINTS 

Numeric 

2 

ROUTINE  POINTS 

Numeric 

2 

Nursing  cars  database 


Field  name 

Type 

Width 

FflPSSN 

Character 

12 

NURSING  DIAGNOSIS 

Character 

30 

NURSING  ASSESSMENT 

Character 

27 

RELATED  FACTORS 

Character 

25 

PATIENT  GOAL 

Character 

30 

NURSE’S  ORDER 

Character 

27 

DATE 

Date 

8 

TIME 

Character 

0 

NURSE 

Character 

20 

FREQUENCY 

Character 

12 

emotional /teaching 

REQUIREMENTS 

Character 

10 

User’s  information  database 

Field  name 

Type 

Width 

USER’S  FIRST  INITIAL 

Character 

2 

USER’S  MIDDLE  INTI AL 

Character 

3 

USER’S  LAST  NAME 

Character 

12 

REQUESTOR 

Character 

3 

PASSWORD 

Character 

5 

ACCESS  LEVEL 

Numeric 

1 

INITIAL  DISTRIBUTION  LIST 


No.  Copies 


Defense  Technical  Information  Center 
Cameron  Station 

Alexandria,  Uirginia  22304-6145 

Library,  Code  0142 

Naval  Postgraduate  School 

Monterey,  California  93S43-5002 

CAPT  S.  A.  Holmes,  NC,  USN 

Naval  Health  Sciences  Education  and  Training 
Command  CCode  2NC1 

Naval  Medical  Command  National  Capitol  Region 
Bethesda,  Maryland  20814-5022 

CDR  K.  A.  Reider 

Naval  School  of  Health  Sciences 

[Research  Department! 

Bethesda,  Maryland  20014-5033 

CDR  Mary  Hauser 

Naval  Hospital 

Bethesda,  Maryland  20014 

LCDR  M.  Galdun 

Naval  Medical  Data  Services  Command 
Building  11 

Bethesda,  Maryland  20014-5066 

LCDR  M.  E.  Quisenberry 
3095  Marina  Drive  #40 
Marina,  California  93333 

LCDR  6.  R.  Harmeyer 
4923  France  Street 

North  Charleston,  South  Carolina  29406 


Curricular  Office,  Code  37 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

Professor  Tung  Bui 

Naval  Postgraduate  School 

Monterey,  California  93943-5000 


